hy 4) 
ig owp - 


ADDRESSES 
——t eee ee 
DECIMAL HEX 

° ° 

1 1 

2 2 

4 4 

7 7 
10 ry 
12 c 
15 F 
18 12 
20 14 
24 18 
26 1A 
29 1D 
S2y 20 
a5 25 
57 ae 
40 28 
AS) 23 
45 2D 
ae. 30 
50 32 
53 35 
$5 37 
sek ise 
60 3c 
63 SF 
67 43 
70: &6 
71 47 
74 84a 
Pts cho 
80 08=—s SO. 
82 «2 
84 «654 
87 «6587 
90 «= oSA 
92 SC 
96 60 
99 «63 
102 66 
105 69 
197 6B 
119 8 6E& 
ry i aM 
115 «73 
i ATS 
120078 
121 79 
123. “7a 
125 7D 
128 80 
130 8682 
132 «84 
135 987 
137 89 
139 8B 
142. BE 
143 68F 
1450 °«Oo71 
148 894 
150 96 
151 97 
154 9A 
186 9C 
157 9D 
159 9F 
161 Al 
Has Mas 
166 Ab 
168 AB 
171 AaB 
W722) AC 
173. AD 
174 AE 
174 BO 
178 B2 
161 BS 
182 Bb 
184 BS 
186 BA 
188 BC 
189 BD 
192, co 
194 C2 
"97 cS 
199 C7 
202 CA 
204 cc 
207 +#«OCF 
209 »=~—D1 
212. «~»D4 
214 D6 
217 «De 
219 OB 
749) SDE 
224 #£0 
226 E2 
229 «ES 
231 —7 
232 #2+€8 
233 «9 
234 #4€A 
236 (€C 
239 #44EF 
242 #2 
244 #«29F4 
247 ~«=-F7 
250 FA 
252 «FC 
253 FD 
255 -FF 
258 102 
261 105 
262 106 
265 109 
267 108 
279 «196 
272 1109 
275 113 
277% 115 
278 116 
279" 117 
281 119 
284 11 
287 #11F 
289 121 
291 123 
293 125 
296 128 
299 12B 
3o2 12€ 
304 130 


VALUEL 
VALUE2 
2 


LooPi1s 


23 


ae 
4D 


63 


6B 


5UBO79 


AS 


iz 


BUB106 


SUBI1L14 


125 


12E 


LDA 86022(B) 
CMPA @461E7 
JNZ/JINE 14 
LDA @6023(B) 
CMPA @6247 
JINZ/JINE OC 
MOVD %626E,R48 
ADD 4%02,B 
CALL @C0O79 
CALL @C106 
BR @FSBA 
MOV ROS,B 
LDA @6002(B) 
CMPA 86247 
JNZ/JNE 1D 
LDA @6004(B) 
JZ/JEQ 18 
CMPA 86235 
JNZ/JNE 13 
MOV ZFF,A 
BTA @628D 
CALL @FSCS 
MOVD %61E64,R48 
CALL @C115 


( PRuvED 


DISASSEMBLY OF YIDEOCIPHER If ¥2.4 EPROM 
INSTRUCTION COMMENTS 
SAO Ca ad sEPROM LOADS AT C000, ADD COOO TO HEX 
84 ;BYTES © AND 1 ARE CHECKSUM VALUES. 
nov RO8,B pREFERENCED IN TABLES 18/198888eeeseges 


; DIRECT COMPARISON 
3TO 20 (RETS? 


;DIRECT COMPARISON 
77T0 20 (RETS) 


;READ TABLE2 

;UNTIL DONE 

3G0TO SUB338A (RETS) 

;REFERENCED IN TABLES 18/198exauaexeess 


;DIRECT COMPARISON 
7G60TO SUBSS8A (RETS) 


3GOTO SUBS3BA (RETS) 


;DIRECT COMPARISON 
;G60TO SUBS368A (RETS) 


37GOSUB SUBS3SCS (CHECK IF YC2 CHANNEL AND IF AUTH) 
3GOSUB SUB116 


CLR A sA=0 
STA #6280 
BR @F38A s;50TO TO SUBS3B8A (RETS?) 


CMP %47,RZ20 - 
INZ/JNE FB 
MOV ROS8,B 
LDA @6024(B) 
CMPA 86247 
JNZ/JNE EE 
MOVD 4430F,R48 
BR @COi8 

ADD %402,R48 
ADC %00,R47 
LDA #R48 

BTA #6282 
MOV R47,4 
STA @46283 
MOV R48.48 

BTA #6284 
RETS 

LDA £R48 

MOV B.ROB 
CMPA @6000(B) 
INZ/INE E1 
INC R48 

ADC %00,R47 
LDA #R48 

INC R48 

ADC %00,R47 
TSTA/ELRC 
JZ/JEa@ 15 


tREFERENCED IN TABLES 18/197 RRRaRE TERRES 
3TO JUMP TO 4A (LOOP? 


3; DIRECT COMPARISON 
7TO0 4A (LOOP? 
3;60TO LOOP16 


;TO 63 (LOOP) 


sSET C,N,Z BITS 
3s JUMP TO AS 


LDA 
AND 
mov 
LDA 
STA 


@5001(B) 
%03,A 
a.B 
@C16C(B) 
R48 


y;LOOKUP TABLE2 


CLR A 

DECD R48 
STA £R48 

INC R48 

ADC %00,R47 
MOV ROBB 
LDA @6001(B> 
MOV A.B 

RR B 

RR B 

AND %03,B 
MOV B,ROA 
LDA @£164(B) 
MOV A,B ; 
LDA #R48 
BTJZ B,A,B1 
XOR %FF,B 
AND B,A 

STA @6282 
MOV R47, 
STA @6283 
MOV R48,.A 
STA @6284 
MOV ROBB 
LDA @6020(B) 
INC R48 

ADC %00,R47 
STA 8R48 
LDA @6021(B? 
INC R48 

ADC %00,R47 


MOV %1F,POA 
LDA 96001(B? 
STA #R48 
INC B 

INC R48 

ADC %00,R47 
DINZ ROA,F2 
RETS 

LDA @6283 
MOV A,R47 
LDA @5284 
MOV A,R48 
LDA @6282 
STA *R48 
RETS 

CLR B 

CLR ROA 

ADD %0D,R48 
ADC %00,R47 
LDA #R48 
IPZ/IGE 02 
MOV %63,B 
MOV %07,P09 
SUB %409,R48 
SBB %00,R47 
LDA ¥R4B8 
MOV A,ROB 


;A=0, BITS C+N=0, Z=1 


s;LOOKUP TABLE1 


;TO0 6B (LOOP) 


3TO F? (LOOP) 


to barker eran alsin iat a naam <<< 
3B=0 BITS AtN#0, Z#1 
pROA=O 


;JUMP TO 125 


1/21/36 ) 


% 
{ 


~ 


‘ 
i 
“ : 
' 
, 
: & 
; ‘ ny 
- : M 
t . 
a ; : 
b 
+ 
t 
‘oe 
‘ 
hey 
ce i 
ae : 


ee 


7eat= 


306 
309 
312 
315 
316 
318 
321 

324 
326 
328 
330 
333 
335 
338 
340 
341 

343 
344 
347 
348 
351 

352 
355 

356 
364 
372 
375 
379 
381 


=Rz 
ped = Bhd 


384 
ZB4 
388 
za? 
371 
394 
376 
397 
400 
402 
403 
407 
410 
411 
412 
414 
415 
416 
418 
419 
423 
426 
427 
428 
430 
43i 
435 
438 
439 
440 
442 
443 
446 
447 
448 
aso 
451 
4s 
453 
456 
457 
459 
461 
462 
465 
46B 
471 
473 
475 
478 
480 
483 
485 
48s 
490 
491 
494 
497 
500 
$02 
Sos 
S07 
509 
S512 
S14 
516 
$19 
521 
522 
52 
528 
530 
S33 
535 
$38 
540 
543 
545 
Sa7 
550 
S53 
556 
558 
S61 
563 
566 
S69 
570 
S72 
574 
S77 
379 
561 
584 
ses 
387 
589 
592 
S94 
S97 
599 


TABLE 
TABLE2 


1D7 


1DB 
1DE 


1EA 


1F4 


209 


226 
LOOP22C 


LDA @6107(B) 
AND ROO,ROB 
OR ROB,ROA 
INC B 

INC R48 

ADC %00,R47 
DJNZ RO9,EA 
MOV ROA,A 
INZ/JNE OS 
INC R48 

ADC %00,R47 
LDA *R4a 
CMPA @628E 
INZ/INE O1 
RETS 

MOV %FF,B 
XCHB A 

STA @428F 
MOV B.A 

STA @428E 
CLR A 

STA @628B 
RETS 


; JUMP TO 12E (LOOP) 


;JUMP TO 144 


3 DIRECT COMPARISON 
;BYPASS RETS (IF NOT DONE? 
j <2 2 ------- <<< 


hs seme eS See =< C<¢ 


< 
01,02,04,08,10,20,40,80 
O1, 035,07, 0F, 1F, SF, 7F,FF 


OR %20,R 
MOV “FF,P17 
CALL @FCOA 
MOY %00,A 
TRAP-6 

MOV ROE,B 
SUB %02,8 
TRAP-10 

ADD %01,B 
LDA MOOFF(B) 
MOV A,R24 
INC B 

LDA @S0OFF(B) 
MOV A,R23 
INC 


;60SUB SUBSCOA 


B 
MOVD “460FF(B),RSS 


MOV %04,P10 
TRAP-7 
TRAP-8 

MOV %01,A 
TRAP-6 
TRAP-8 

MOV %02,A 
TRAP-6 


MOVD %6200,R35 


MOV %07,P10 
TRAP-7 
TRAP-8 

MOV %03,A 
TRAP-6 


MOVD %6207,R35 


MOV %OB,P10 
TRAP-7 
TRAP-8 

MOV 209,A 
TRAP-6 

LDA @6246 
TRAP-6 
TRAP-8 

MOV %07,A 
TRAP-6 

CLR B 
TRAP-11 

STA @623A(B) 
INC B 

CMP %0C,B 
INZ/INE F7 
CLR A 

STA @622B 
AND “%DF,R20 
BR @F998 
CLR ROS 

IMP OS 

MOY %63,P09 
MOV ROB,B 
LDA @6233 
JZ/JEQ OS 
CMPA @6002(B) 
JZ/JEQ OA 
CLR A 

STA @615F 
STA @61C2 

BR @F3BA 
MOV A,ROA 
LDA @6003(B) 
MOV A,ROB 
MOV RO9,B 
CMPA @615E(B) 
IJNZ/JNE 07 
MOV ROA,A 
CMPA @615F(B? 
JZ/JEQ 11 
CLR A 

STA @6160(B) 
BTA @6161(B) 
MOV ROA,A 
STA @615F(B) 
MOV ROB,A 
STA @615E(B) 
MOV 405,B 
LDA @61F8(B) 
IJNZ/JNE OS 
DINZ B,FS9 
BR @C2D0 
MGV ROB8,ROD 
ADD %0S,ROD 
MOV ROD,B 
LDA #6005 (B> 
MPY ROO,A 
MOVD RO1,R4A 
LDA @61FC 
SWAP A 

AND %OF,A 
MOV A,ROA 
LDA @61F9 
MOV A.ROB 
MOV ROD,B 
LDA @6003(B) 
SWAP A 

AND %OF,A 
MOV A,ROC 
LDA @6000(B) 
SUB ROB,A 
SBB ROA,ROC 
JPZ/JIGE O07 
INV A 


3B=0 
3;GET SERIAL NUMBER ROUTINE 


;TO 104 (LOOP) 


3Az0 


;60TO TO SUB3998 
}; REFERENCED 
;JUMP TO 1DE 


; REFERENCED IN TABLES 18/1978 RK ERR TEES 


3TO 1EA 
;JUMP TO 1F4 


3 A=0 
360TO SUBS38A (RETS) 


370 209 


3TO 21€A 
7Az=0 


3TO 226 
;TO 216 (LOOP? 
}G0TO SUB2DO 


7T0 25E 


(12 DIGITS WORTH OF IT? 


IN TABLES 18/19 ER REE eEEEE 


ie : Tale oe i was } id Cr. Afi hl hed a As if TA ha 


7 V =) 


o 4 
i 
: atiy4 
“ 
, @, 
i 
i 
" Q 
4 Y tee 
uc 
+ 4 “eae yg 
wena Y ay os LR a 
se? 


400 
602 
4603 
606 
4608 
619 
613 
616 
618 
621 
623 
628 
628 
630 
432 
635 
437 
4639 
642 
544 
647 
649 
650 
652 
653 
554 
458 
669 
643 
666 
668 
671 
672 
674 
676 
679 
681 
683 
684 
687 
689° 
691 
694 
576 
699 
701 
702 
704 
705 
708 
710 
712 
715 
718 
720 
722 
724 
726 
728 
730 
732 
734 
736 
739 
742 
744 
747 
749 
751 
754 
736 
759 
762 
765 
767 
769 
Fess 
773 
TOF tee 3 
778 
781 
784 
786 
757 
799 
792 
79a 
797 
799 
gol 
B02 
B04 
807 
B09 
811 
B12 
B13 
B14 
815 
816 
818 
819 
821 
823 
625 
B26 
828 
B31 
B33 
835 
836 
837 
838 
839 
840 
B43 
846 
849 
8s0 
851 
B52 
855 
858 
B61 
B46s 
B64 
B66 
B68 
e871 
873 
874 


290 


2C4 


204 


30S 
307 


BUBSOD 


002 
SUBI1A 
SuUBs1D 


SUBS37 


3352 


INV ROC 

INC A 

ADC %00,ROC 
INZ/JNE 74 
MPY ROO,A 
SUB ROL, R4A 
SBB ROO,R49 
JNG/JL 4A 
LDA @61FC 
AND 4OF,A 
MOV A,ROA 
LDA @41FA 
MOV A,ROB 
MOV ROD,.B 
LDA @6003(B> 
AND %OF,A 
MOV A,ROC 
LDA @6001(B> 
SUB ROB,A 
SBB ROA,ROC 
IPZ/JGBE 07 
INV A 

INV ROC 

INC A 

ADC %00,ROCT 
INZ/JINE 42 
MPY ROO,A 
SUB ROL,R4Aa 
SBB ROO,R49 
JNC/IL 38 
LDA @61FD 
SwaP aA 

AND %OF,A 
MOV A,ROA 
LDA @61FB 
MOV A,ROB 
MOV ROD,B 
LDA @6004(B) 
SWAP A 

AND %4OF,A 
MOV A,ROC 
LDA @6002(B) 
SUB ROB,A 
SBB ROA,ROC 
JPZ/IGE 07 
INV A 

INV ROC 

INC A 

ADC %00,ROC 
JNZ/JNE OE 
MPY ROO,A 
SUB ROL,R4A 
SBB ROO,R49 
JNC/IL 04 
CLR ROC 

IMP 12 

MOV ROD,B 
ADD %04,8B 
MOV B,ROD 
SUB RO8,B 
CMP %23,B 
JZ/JEQ OS 
BR @C22C 
MOV %FF.POC 
MOV ROB,B 
LDA 86004(B) 
MOV A,ROB 
MOV RO?,B 
LDA @6160(8B) 
OR ROB,A 
STA @6160(B) 
LDA @5161(B? 
MOV ROC,ROC 
IJNZ/JNE 96 
INY ROB 

AND ROB.A 
IMP 02 

OR ROB,A 
BTA @61461(B) 
BR Fea 
MOV %0A,P10 
IMP OB 


ORP %02,P06 
STA 2000 
ANDP %FD, P06 
MOV B,A 

RR A 

RR A 

ORP %02,P06 
STA @2900 
ANDP %FD,P06 
LDA R35 

MOV A,B 

AND %OF,B 
INC RSS 

ADC %400,R34 
LDA ¥#R3S 

RL A 

PLC B 


370 2D4 


;TO 2D4 


3TO 290 


3TO 2D4 


3TO0 2D4 


;TO 204 


3;TO 2D4 


;TO 2D4 


3; JUMP TO 2E3 
360TO LoOOoP22Cc 


;TO 305 


370 307 


350TO SUBSI5A 


(BYPASS LOOP22C) 


{RETS?) 


3; JUMP TO SUBS1ID 


}B=9 
7 JUMP TO SUBS 


;JUMP TO 352 


1D 


aM 


op ares 


Lg ans 


=i 


te 


Tee ee te ee et et ee et et te et 
Ce oll aed 
O@ANNNOCOCTUARU DP PBUWUNNNNE RHO 
OAT EN DAAKONOUONUODS -ODUNY+ DG @ 


36B 
34E 
34D 
34E 
371 

374 
377 
379 
378 
37E 
381 

384 
386 
389 
3ac 
38D 
390 
392 
395 
396 
397 
298 
39B 
39D 
39F 

sao 
3A2 
3A3 
3as 

3Ab 
3A7 

SAA 
SAD 

3B0 
3B2 

3B4 

3B5 

3B7 

3B9 

3BB 

3BC 

3BD 
3BE 

3co0 
3c2 

3cs 
307 

309 
3cc 

3CF 
3Do 
3D3 
3D4 

307 
3D9 

3DC 
3DF 
3E1 

3E3 

3ES 
3E8 
SEA 
3EC 
SEE 
3Ft 

3F3 
3F4 
3F9 
3FC 
3FD 
400 
402 
405 
407 
208 
aoc 
40F 
410 
413 
414 
417 
419 
41Cc 
ALF 
420 
423 
426 
42a 
42B 
42C 
42F 
431 

433 
435 
438 
A3C 
43E 
441 

444 
447 
449 
44c 
a4E 
450 
a54 
457 
458 
4SE 
461 

462 
465 
468 
46B 
46E 
472 
a74 
477 
47B 
4a7E 
461 

484 
465 
486 
489 
48D 
4aFl 

aga 
are 
498 
ace 
a9c 


SUBSSD 


TRAP-17 
39S 
SUBS96 


SUBSA7 


3B7 


SUB3SD4 
TRAP-18 


SDF 


SUBSFD 
SuUB4O2 
SUB407 


SUB40C 


481 
4584 
485 


TRAP-21 


RL A 

RLO B 

MOV B,a 

ORP %02,P06 
BTA @2000 
ANDP XFD,PO4 
LDA R35 
AND 43F,A 
ORP %02,P06 
STA @2000 
ANDP %FD,PO06 
INC RSS 

ADC %00,R34 
DINZ R10,AB 
RETS 

MOV %9F,PS3B 
JMP OS 

MOV %B3,P3B 
CLR B 
TRAP-12 
TRAP-13 
DINZ R3B,FC 
MOV %B4,B 
MOV %0A,A 
TRAP-12 

MOV %10,A 
TRAP-13 

MOV %470,A 
TRAP-13 
RETS . 
MOVD R46,R35 
ADD %05,R35 
ADC 400,R34 
LDA R35 
AND 403,A 
INC A 

MOV A.RSB 
LDA &£R3S 
AND %70,A 
MOV A,B 

RR A 

RR A 

ADD ROO,B 
INC R3S 

ADC %00,R34 
CMP %8C,B 
JZ/3EQa O7 
CALL @cs3oD 
DINZ R3B,EB 
RETS 

CALL acsia 
RETS 

MOV %08,P3B 
IMP OS 

MOY %09,P3B 
MOV %00,P3A 
LDA #R46 
MOV A,R34 
INC R46 

ADC %00,R4S 
LDA R44 
MOV A.RSS 
INC R44 

ADC %400,R45 
MOY R30,B 
CALL @C31A 
ADD %414,R3A 
DINZ R3B,ES 
RETS 

MOV 4FF,P2C 
JmMP OD 

MOV 460,P2C 
IMP 98 

MOY %OF,P2C 
IMP 93 

MOV %7F,P2C 
POP A 

STA 96215 
Por a 

BTA @6216 
MOV B,R2F 
MOV %03,P2D 
MOV R21,R2E 
TRAP-21 

MOV %0A,P21 
AND %407,R2F 
MOVD %£456,R46 
TRAP-18 
TRAP-9 

LDA @6268 
IN/ILT 3D 
MOV R2D,A 
IJN/ILT 39 
MOV %04,P21 
MOVD %£18C,R35 
MOV %8C,B 
CALL acsop 
CALL @cs91 
CALL @cse4 
JNZ/JNE OS 
MOV %FF,P2D 
IMP D1 

MOV %8C,B 
MOVD %E8AS,R35 
CALL @c31A 
MOVD %E1B89,R3S 
CALL @c318 
MOV %2D,P42 
TRAP-9 

DINZ R42,FC 
DJNZ R2D,D0 
MOV %03,P2D 
BR @D138 
MOVD %EBAS,R3S 
MOV %8C,B 
CALL @C31A 
MOVD %4E2ES5,R35 
CALL @C318 
LDA a@6253 
STA 86233 
TRAP-19 
CALL @C4cs 
TRAP-9 


;TO SUB337 (LOOP? 
jp 6 ooo nnn <<< 


;IJUMP TO 395 


3T0 397 (LOOP) 


3TO 3DO 
3GOSUB SUBSOD 
3TO0 3B7 (LOOP) 


{S=<2<S==5-—--=--> <<< 
3S0SUB SUBS1A 

J 6 ooo nnn q<< 
370 SDC 

7;GOSUB SUBSIA 

3TO0 SDF (LOOP?) 

CE Ta aN ae Ct< 


3S508UB SUBSOD 
s;608UB SUBS71 
+;GOSUB SUBSS4 


1GOSUB SUBS1A 
s;GOSUB SUB318 


3G60TO 1138 


}608UB SUB31A 
;608UB 8UB318 


1+60SUB SUB4CS 


BTJO %01,R19,F8;TO 485 (LOOP) 
BTJZ 491.R1A,261TO 487 


LDA @6255 
CMP “Z%OA,A 
JNZ/JNE 11 
LDA 86255 
XCHB A 

LDA @61C45 


;TO 409 


ty 
e 
© ‘ » A 
19OC7) Teoeus oF, - Be ere 
IP great’ Gee awash | nq 
; 4, vy 4 
3G OF Wes <_< jor wrt 
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v # Ay ; es 
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a es 


eye 
¥¥9,3 


ALTAR OLB» 


51: 
ives muecey 1 


4az 


SUB4CS 


4DD 


4EF 


So. 


SUBS84 


8uBs91 


AND %07,A 
CMP ROO,B 
JC/J8 DF 
XCHB A 

INC A 

aMP De 

CMP %OB,A 
INZ/JNE D7 
LDA @6233 
CMP %01,4 
3JZ/JEQ DO 
DEC A 

IMP CA 

MOV R2E,R21 
LDA @6216 
PUSH A 

LDA @6215 
PUSH A 

RETS 

LDA @622F 
MOV A,R2F 
LDA @622E 
AND %18,A 
MOV A,B 

CMP %FF,R2C 
INZ/JNE 0A 
TSTB 

INZ/JNE 2€ 
POP A 

POP A f 
POP A 

POP A 

BR @CCD7 

CMP 4%7F,R2C 
INZ/JNE OD 
TSTB 

JNZ/JNE 1F 
MOV ROF,B 
TRAP-10 

LDA @6113(8) 
MOV A,R2F 
IMP 15 

MOY R24,B 
TRAP-10 

LDA @6113(B) 
MOV A,R2F 
CMP %00,R2C 
INZ/JNE OS 
CALL @DSC7 
IMP OS 

CALL @DSES 
AND %07,R2F 
MOV %19.B 
LDA #6253 
CALL @Dé617 
CMP %00,R1D 
JZ/JEG 49 
CMP %400,R2F 
JZ/JEQ 4a 
MOV %28,8B 
MOVD 4EZA?, R35 
CALL @C31Aa 
MOV 438.B 
MOV R2F.A 
CALL @D617 
MOV %3C,B 
MOVD %E8AS.R35 
CALL @C31A 
MOV %50,B 
MOVD %E8AS,R3S 
MOVD %4EBAS,R46 
AND “%DF,R20 
LDA 96253 
CMP R2F,A 
JC/3S OB 
MOVD %E2C7,R35 
MOVD 4E2D6,R46 
OR %20,R20 
CALL @CsiA 
MOV %64,B 
MOVD R46,R355 
CALL @C31A 
RETS 

CLR R2F 

MOVD %DE80,R35 
MOV %28,B 
CALL @C31Aa 
MOVD %DEDA,R3S 
MOV “Z3C,B 
CALL @c31A 
MOVD %EBAS,R35 
MOV %50,B 
CALL @cs3ia 
MOVD “EBAS,R3S 
MOV %SO,B 
CALL @C31A 
RETS 

MOY %08,B 
LDA @6254(B) 
CMPA @6267(B) 
JNZ/JNE 02 
DINZ B,F6 
RETS 

MOV %AB,A 
STA @627A 
MOV %08,P19 
CLR R1A 

MOV %08,B 
CALL @F990 
POP R40 

POP RSF 

CLR A 

STA @625F 
MOVD %1ASE,R42 
CALL @c4cs 
TRAP-9§ 

CMP %7F,R2C 
JZ/JEQ OE 
MOV R1D,A 
JZ/JEQ OA 
MOV R2F,A 
CALL 9DéAa7 
JPZ/JGE OS 
BR 8D19A 

MOV R1A,A 
CMPA @625F 
JNZ/JNE DB 
DECD R42 
JC/3J8 DE 

CLR R19 

BR @CE15 


3TO 484 (LOOP) 


;TO 481 (LOOP) 


3TO 484 (LOOP) 


;TO 485 (LOOP? 
37T0 481 (LOOP) 
a a as ee en 


AUTH CODE STORED HERE SREREERERRRIRHSRERRSER ERATE 


i7TO 4DD 


;JUMP TO SUBCD7 
;TO 4EF 


3T0 S501 
;SO8UB SUB15C7 


;GOSUB SUBISES 


1G60SUB SUB1617 


518 AUTH CODE ’M’ 


760SUB 8UB3S1A 


3G605UB SUB1617 


;GOSUB SUB31A 


3GOSUB SUBSI1A 


;GOSUB SUBS1A 


}SOSUB SUBSIA 


;60SUB SUB31A 


;SOSUB SUBSIA 


3;GOSUB SUBS1A 


3;508UB SUB3990 


; STRANGE LOCATION TO LOAD 


;GOSUB SUB4CS 


3G0SUB SUB16A7 


;DIRECT COMPARISON 


7;607TO SUBE1S 


(MIGHT BE TURN ON ROUTINE) 


(MASKED) 
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a ay q 7 sd pe 


1491 SDS SuBSDS TRAP-21 sREFERENCED IN TABLES 16/17°°*<***s4s"485 


1492 S3D4 MOV %01,P21 

1495 SD7 MOV %C2,P20 

1498 SDA MOV ZOF,A 

1500 spc TRAP-17 

1501 SOD TRAP-9? 

1502 SDE CALL @C67e8 3GOSUB SUB678 

1505 S£1 MOVD %DEF8,R3S 

1509 SES CLR B 

1$10 SES MOV %14,P10 

1513 SE? CALL @C31D }GO0SUB SUBSiD 

1516 SEC MOV R24,B8 

1518 SEE LDA @C467(B) ;LOOKUP TABLE7 

1521 SF1 PUSH A 

1522 SF2 LDA @C663(B) ;LOOKUP TABLE6 

1525 SFS PUSH A 

1526 SFé RETS } <---------------- <<< 
1527 SF7 CALL ec318 ;GO8UB 8UB318 

1530 SFA TRAP-9 

1531 ‘SFB MOV %401,A 

1533 SFD TRAP-20 

1534 SFE LDA @6255 

1537 601 MOV R24,B 

1539 603 CMPA @C451D(B) j;LOOKUP TABLES 

1542 404 Jc/3s CB 

1544 5068 CMP %01,8B 

1546 608A INZ/JNE 07 

1548 460C CMP %05,A 

1550 40E INZ/INE OS 

1552 610 BR @D917 - 

1555 613 MOV a,8 

15546 414 LDA @C621°B> ;LOGKUP TABLES 

1559 617 PUSH A 

1540 418 LDA @CeZzA(B? ;LOCKUP TABLES 

1563 418 PUSH A 

1564 61C RETS j 6-7-7 ------------ <<< 
1565 61D TABLES 05,06,08,09 :AFFECTS SETUP MENU ITEMS(NUMBER OF MENU ITEMS? 
1569 621 TABLES C6,C9,C7,07,C7,C7,C8,DB,D9;ADDRESSES OF SETUP 0-8 (MSB? 
1578 62a TABLES 89,0F,62,DE,08,E8,B4,01,17;G0ES WITH TABLE 4 (LSB? 
1587 433 633 MOVD ZDF7F,RS3S;REFERENCED IN TABLES 7/6 
15971 637 IMP BE 3 

1593 439 639 MOVD %DF70,RS5;REFERENCED IN TABLES 7/6 
1597 63D MOV “%50,8 

159? 63F CaLL acsia +GOSUB SUB31A 

1602 442 MOVD %DFSE,R35 

1606 646 IMP AF 

1608 648 648 CALL @CooB 1GOSUB SUB46B REFERENCED IN TABLES 7/74 
1411 64B MOVD ZDF9D,R35 

1615 64F IMP 6 

1617 651 651 CALL @C46B ;50SUB SUB464B REFERENCED IN TABLES 7/6 
14620 654 MOVD 4DF61,R35 

1624 4658 MOV 48C,B 

16256 65A CALL @c31A4 ;608UB SUBSIA 

1629 65D MOVD %DFAC,RSS 

1633 661 IMP 94 

1635 663 TABLES 33,39,48,51; (LSB) MORE SETUP ADDRESSES 
1639 667 TABLE? C4,C6,C6,Cd; (MBB) 

1643 668 SUBS54B MOVD %DF34,R35 

1647 66F MOV %50,8 

1649 671 MOV %OF,P10 

1652 674 CALL @C31D ;GOSUB SUB31D 

1635 677 RETS } 622 -------------- <<< 
1656 678 8UB478 LDA 96223 

1659 678 CLR R24 

1661 67D BTJZ 4R20,A,03 3TO 683 

1664 680 MOV %402,P24 

1667 683 BTIZ “%ROB,A,O2 ;TO 688 (RETS) 

1670 4686 INC R24 

1672 688 RETS | 62 ------------ <<< 
1673 689 689 TRAP-21 ;REFERENCED IN TABLES 4/5 
1674 6B8A MOV %408,P21 

1677 68D MOV X%OF,A 

1679 68F TRAP-17 

1680 490 6990 TRAP-9 

1681 691 MOV “14,8 

1683 693 MOVD “%DE08,R35 

1687 697 CALL @C31A 3GO0SUB SUB31A 

1699 459A MOV %2E,A 

1692 69C MOV %50,B 

1694 6595 MOV %63,P3B 

1697 4A1 CALL @C396 ;G608UB SUB396 

1790 6A4 SUBSA4 MOVD %40697,R42;0DD VALUE TO LOAD REGISTER WITH! !!!!!!! 
1704 6A8 TRAP-19 

1705 6a? SUBSAP TRAP-9 

1706 4AA MGV %01,P10 

1709 AD MOVD %FOO0O0,R35 

1713 6B1 MOV %3D,B 

1715 6B CALL @C31D 3605UB SUB31D 

1718 6B6 MOVD %61F9,R3S 

1722 BA MOV %06,P10 

1725 6BD MOV %65,B 

1727 BF CALL @CAsC ;GOSUB SUBASC 

1730 6C2 LDA @67E6 

1733 4C5 MOV %76.B 

1735 47 TRAP-16 

17346 646C8 TRAP-9 

1737 6c9 MOVD %621A,R35 

1741. 4CD MOV %08,P10 

1744 4pDo MOV %79,B 

1746 4D2 CALL @CABc 3608UB SUBASC 

1749 6D TRAP-F 

1750 4D6 MOV R15.A 

1752 6D8 MOV %8D,B 

1754 4DA TRAP-16 

1755 608 LDA @6233 

1758 4DE TRAP-15 

1759 6DF LDA 96226 

1762 4&2 MOY 492, 

1764 664 TRAP-16 

1765 £5 LDA 946244 

1768 ES MOV %497,8B 

1779 «44EA TRAP-16 

1771 6EB LDA @6247 

1774 EE TRAP-15 

1775 6&F MOV ROS,A 

1777) 0«06Fi MOY %49E,.B 

1779 4 4FS TRAP-16 

1780 4F4 TRAP-9? 

1781 6FS MOVP P1C,A 

1783 4F7 PUBH A 

1784 6F8 AND %01,A 

1786 6FA MOV %A1.B 

1788 6FC TRAP-16 

1789 6FD POP A 

1790 6FE RRC A 

1791 FF MOV 44,8 

1793 701 TRAP-16 

1794 702 LDA @622E }AUTH CODE STORED HERE SSSEEREESE RK ERSTE EATERS 
1797 705 MOV A,B 3}1F 622E = 18 THEN AUTH = ’F”’ 
1798 706 RL B 


1799 7907 SWAP B 
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708 
70A 
70D 
7OF 
710 
712 
714 
717 
718 
71A 
71D 
71E 
ees 
722 
725 
726 
728 
72A 
720 
72E 
731 
733 
735 
738 
73C 
73E 
742 
744 
745 
747 
74a? 
74B 
74D 
750 
753 
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759 
75D 
762 
763 
766 
7oA 
76B 
76C 
770 
774 
Tae 
77a 
77E 
782 
784 
787 
78A 
78C 
78F 
792 
795 
799 
79D 
79F 
7A3 
TAT 
7ag 
7AC 
TAF 
7B1 
7B4 
7B6 
7B7 
788 
7BA 
7BC 
75F 
7E2 
7s 
75 
706 
7c8 
7CA 
7CE 
7D0 
7D4 
707 
708s 
7DB 
7DE 
7E1 
7E2 
7ES 
7E8 
7EA 
7EC 
7EF 
7FO 
7F3 
74 ode 3 
7FB 
7FOD 
7TFF 
B03 
807 
B09 
80B 
B0Cc 
B0D 
BOF 
B11 
B12 
814 
B16 
819 
81B 
BIE 
820 
B23 
827 
82a 
B2B 
B2E 
831 
834 
837 
838 
a3B 
83D 
B3F 
843 
844 
845 
B47 
84B 


708 


745 


TABLES 
TABLE? 
762 


SUB76C 


7E8 


AND %03,B 
LDA @C759(B) 
MOV %AB,B 
TRAP-12 

MOV R1D,8 
AND %7F,8 
LDA @C7SD(BY 
TRAP-13 

MOV %AE,B 
LDA @6232 
TRAP-16 

LDA @6231 
TRAP-15 

LDA #6230 
TRAP-15 

DECD R42 
JINC/JL 2C 
MOV R19,A 
JZ/JEQ OS 

BR aCSAr 

MOV RIA,A 
JZ/JEQ 09 

BR @cCéa4 
MOVD %4F138,R35 
BR &R3S 
MOVD %621F,R335 
MOV x06,B 
CLR A 

STA R35 
DECD R3S - 
DINZ B,FA 
MOY %FF,A 
STA 86220 
STA @6221 

BR @C690 

BR @CE15 


15,17,95,01 ;LEVEL OF AUTHORIZATION 


O0,04,01,0B,00 
TRAP~21 

MOV %0B,P21 
MOVD 4E390,R46 
TRAP-18 

TRAP-9 

MOVD %DFE8,R3S 
MOVD %DFF7,R46 
LDA 86278 

BTJZ %RO1,A,08 
MOVD %DFD9,R3S 
MOVD %E005,R46 
MOV %14,B 

CALL @c31a 
MOVD R46,R3S 
MOV %“%3C,B 

CALL @C31A 

LDA 86278 

BTJZ %RO2Z,A,0A 
MOVD %£042,R35 
MOVD ZE£0S1,R46 
IMP 08 

MOVD X%EO33,R3S 
MOVD %£060,R46 
MOV %78,B 

CALL @C3ia 
MOVD R46,R35 
MOV %AO,B 

CALL @C31A 

MOV %01,8 
TRAP-20 

TRAP-9 

MOV R1A,A 
INZ/JNE 93 

BR @CSDS 

LDA @6255 

DEC A 

JZ/JEQ OB 

DEC A 

JZ/IEQ 02 

IMP ED 

MOVD %40002,RO01 
IMP 04 

MOVD %0001,R01 
LDA @6278 

XOR B.A 

STA 96278 

BR @C76C 

LOA 96254 

MOV A,B 

CALL @c4oc 

BR @cSDS 

SUB %05,B 

MOV B,R27 

MOV %03,P26 
TRAP-21 

MOV %04,P21 
MOVD %#ESAZ,R46 
MOVD %6260,R35 
MOV R27,A 
JZ/JEQ O8 

MOVD %E3C6,R46 
MOVD %6268,R35 
LDA #R3S 
IN/ILT 26 
TRAP-18 

TRAP-? 

MOV %08,A 

MOV %AB,B 
TRAP~-20 

MOV R27,A 
JNZ/JNE OS 
CALL @D69A 

IMP OS 

CALL @cse4 
JZ/JEQ 17 

MOV %21,P42 
MOVD %£1B9,R35 
CALL ac318 
TRAP-9 

DINZ R42,FC 
DJNZ R26,BE 
MOV %03,P26 

BR @D138 
TRAP-21 

MOV %OE,P21 
MOV R27,A 
JZ/JEQ 08 

MOVD %E3D8,R46 
TRAP-18 

TRAP-9 

IMP 06 

MOVD %E3B4,R46 
TRAP-18 


s REFERENCED IN TABLES 4/5 


}LOOKUP TABLES 


;RIGHT HERE IF R1D = 04 THE AUTHORIZATION IS SAID TO BE 
7;MUST BE =4 TO AND QUT TO 4 (B #4 THEN) 


gLOOKUP TABLES 


770 736 


eTO. 731 
;G0TO SUBSAP 


370 7SE 
3GOTO SUB&A4 


3G0TO TRAP 14/2 


7R34 AND RSS = O 


3TO 745 (LOOP? 


360TO 6970 (LOOP) 


iGOTO SUBE1S 
3 (MEBLA? 


{IN SETUP-O? (SUFB? 


3; REFERENCED IN TABLES 4/5 


3;GOSUB SUBSIA 


;GOSUB SUB31A 


;GOSUB SUBSIA 


;GOSUB SUBS1A 


;TO 7BF 
;GOTO SUBSDS 


3T0 700 


3T0 7CA 
;LOOP 
7A=00 BHO2 
3TO 7D4 
;A=00 B=01 


3G0TO SUB76C 


+REFERENCED IN TABLES 4/5 


3;G608UB SUB40C 
360TO SUBSDS 


;REFERENCED IN TASLES 4/5 


7GOSUB SUB1459A 
;GOSUB SUBS84 


;SOSUB 8UB318 


RQ?’ 


(AS IN SA OR FA) 


enn 
“ge. waa © ee 
“waa >) ee 


zeta 


: y ih ry a . = 

G) 2UrTAS SOT ANY 8 8 GIR Se BYE Feemsey 
fMERT Oe Gh a OF FUG OY = Me Pius 
= it vou inline 

cae 

Duet 

ae ’ 
eer ate 
i=? ot. 
eat ve ates 
et R44 


sagted © 
etaos ei “ART 33 Hire eet 
c. et Sane OFaas, 


Z +) Mie 6vGoe4 
oy RE OnLS G20 « 
SE er wt eS bins ete 


f z ~~. 
Os Sot tvow 


- . . ‘ 
Chm aE Ea a: 


6 age ¥ 
dA OF8R2 Re 
| eae 
¢- ane” : 
ee Pe ee a 
een, OTR CUR. ‘ 
A 4 Rew As ul 


PETE 


sie ” evORs evar 
a ose Vey 
‘£90 £180 
é eat GvVoR 
''-@, 368. Oar 
“eas fh ALRD 
the a 

woe oe VAS 3 
ORR Rk Ovgirs 
abn Fee, ovuy 
_~ a 
Pin DEApe ovat 
ae | Ceo he : 
- etry 


Fee 4480 


i SE 
28. Let Tee 
etter 265 

AS BOF 

@tCGP £72 


2124 
2125 
Zien 
2129 
2130 
2132 
2135 
2138 
2140 
2141 
2144 
2148 
2149 
2150 
2152 
2154 
2155 
2137 
2160 
2163 
2165 
2167 
2168 
23.0% 

2173 
2175 
2177 
2180 
2183 
2185 
2189 
21990 
2191 

2193 
2196 
2199 
2201 

2205 
2206 
2297 
2209 
2210 
2213 
2217 
2218 
2221 

2222 
2225 
2228 
2229 
2232 
2234 
2237 
2241 

2242 
2245 
2247 
2251 
2252 
2253 
2256 
22597 
2261 
2264 
2265 
2269 
ease 
2274 
2277 
2227 
2280 
2282 
2283 
2285 
2286 
2290 
2293 
22976 
23006 
2303 
2306 
2307 
2311 
2312 
2314 
2316 
2319 
2329 
23235 
2326 
2329 
2331 
2335 
2337 
2338 
2342 
2345 
2344 
2346 
2348 
2351 

2355 
2358 
2360 
2363 
2367 
2379 
2373 
2374 
2375 
2378 
2380 
2382 
2384 
23587 
2390 
2394 
23976 
2399 
2402 
2404 
2406 
2408 
2411 

2413 
2414 
2419 
2421 

2424 
2426 
2428 


B4C 
B4D 
64F 
851 
852 
854 
857 
esa 
ssc 
8sD 
8460 
B44 
865 
846 
868 
BSA 
86B 
84D 
870 
873 
875 
877 
878 
878 
87D 
a7F 
881 
B84 
887 
889 
BSD 
Sse 
BSF 
891 
894 
3897 
899 
89D 
B9E 
89°F 
SAL 
BAZ 
sas 
BAS 
BAA 
BAD 
BAE 
8B1 
BB4 
8B5 
eBS 
SBA 
eBD 
8C1 
ec2 
8cs 
8C7 
8cB 
Bcc 
acd 
BDO 
BD3 
eps 
spe 
8D9 
SDD 
BEO 
BE2 
SES 
SE7 
BEa 
SEA 
8EB 
BED 
SEE 
BF2 
SFS 
Sra 
BFC 
SFF 
902 
903 
907 
9708 
930A 
90C 
FOF 
910 
913 
716 
919 
F1B 
91D 
921 
922 
926 
927 
928 
92A 
92C 
92F 
933 
936 
938 
93B 
o3F 
942 
945 
946 
947 
944 
940 
94E 
950 
953 
956 
95A 
95C 
9SF 
962 
964 
966 
968 
96B 
96D 
970 
973 
975 
978 
7A 
97C 


8B4 


SuBg9I2zS 


TRAP-9 

MOV %08,A 

MOV %AB,B 
TRAP-20 

MOV x08,B 

LDA @6254(B? 
STA @626F (B) 
DINZ B,F8 
TRAP-21 

MOV “£04,P21 
MOVD Z%ESEA,R46 
TRAP-18 

TRAP-9? 

MOV %08,A 

MOV %AB,B 
TRAP-20 

MOV %08,B 

LDA @6254(B) 
CMPA @626F (B) 
JNZ/INE 2C 
DJNZ B,F4& 
TRAP-21 

MOV %04,P21 
MOV 498.8 

MOV R27,A 
JNZ/INE 19 

LDA @626F (B) 
STA @625F(B) 
DINZ B,FS 

MOVD 4E40E,R46 
TRAP-18 

TRAP-9 

IMP 19 

LDA @626F(B) 
STA @6267(B) 
DINZ B,FS 

MOVD %ESFC,R46 
TRAP-18 

TRAP-9 

JMP 09 

TRAP-21 

MOV %04,P21 
MOVD %E420,R46 
TRAP-19 

MOV %2D,P42 
TRAP-9 

DINZ R42,FC 

BR @CSD3 
TRAP-21 

MOV %OC,P21 
MOV %FF,A 

STA 96228 

MOVD %C0174,R37 
TRAP-9 

LDA @622B 
INZ/JNE FA 
MOVD %E432,R46 
TRAP-18 

TRAP-9 

CALL @D62D 
CALL @D674 

MOV %1C,B 

CALL @CAS6 
TRAP-9 

MOVD %623D,R3S 
MOV %08,P10 
MOV %78,B 

CALL @casBc 

MOV R23,A 
TRAP-15 

MOV R24,A 
TRAP-15 

MOV %2E,A 
TRAP-13 

MOVD %623D,R35 
MOY %98,P10 
CALL @CABS 
MOVD %0023,R35 
MOV %02,P10 
CALL @CABS 
TRAP-15 

MOVD %1ASE,R42 
TRAP-9 

DECD R42 

JC/JS FB 

BR @CE1S 
TRAP-21 

MOV %00,P21 
MOV R1D,R24 
LDA @6223 

AND %10,A 

MOV A,R2S5 

MOVD %E478,R46 
TRAP-18 

MOVD %0697,R42 
TRAP-9? 

TRAP-9 

DECD R42 
JC/IS OS 

BR @CE15 

MOVD %6235,R35 
MOV %05,P10 
MOV %06,B 

CALL @casc 
MOVD 46235,R35 
MOV %0S,P10 
CALL @CaABS 
TRAP-15 

TRAP-9 

LDA @6219 

MOV A,RSA 
IJNZ/JNE 14 

CLR R27 

CALL @CAOF 

MOV %07,P10 
MOVD %E37B,R35 
MOV %34,B 

CALL @C31D 

BR @C9E3 

MOV R27,A 
IJNZ/INE OA 

MOV %2E,A 

MOY %419,.P3B 
MOV %36,8 
CALL @C396 

MOV R3A,R27 
CLR RSE 

CALL @D674 
MOV R3A,A 

MOV %36,B 

CALL @FODS 


;G0TO SUBSDS 


;REFERENCED IN TABLES 4/5 


7GO0SUB SUB162D 
s;GOSUB SUB1674 


3;GOSU8B SUBASS 


7G60SUB SUBASBC 


;GOSUB SUBABS 


;GOSUB SUBABS 


30DD YALUE TO LOAD 


360TO SUBEIS 


MAKE R1ID = R24 


3O0DD VALUE TO LOAD 


;GOTO SUBE1S 


360SUB SUBASC 


;GOSUB SUBABS 


;GOSUB SUBAOF 


+76505UB 8UB31D 
360TO SUBSES 


}6508UB SUB396 
;G0SUB 8UB1674 


3GOSUB SUBSODS 
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Deaton goede, 


2431 
2433 
2434 
2437 
2438 
244} 
2442 
2443 
2444 
2445 
2444 
2447 
2448 
2449 
2451 
2483 
2456 
2458 
2460 
2463 
2465 
2469 
2a72 
2475 
2477 
2480 
2482 
2484 
2486 
2488 
2491 
2494 
2496 
2498 
2502 
2505 
2507 
2510 
2512 
2515 
2517 
2518 
2520 
2522 
2526 
2528 
2531 
2532 
2536 
2538 
2342 
2544 
2546 
2549 
2551 
2554 
2556 
2558 
2560 
2564 
2567 
2569 
2572 
2575 
2877 
2579 
2582 
2585 
2586 
2588 
2590 
25971 
2593 
2595 
2597 
2699 
2602 
2505 
2606 
2699 
2611 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2624 
2627 
2630 
2633 
2635 
2638 
2640 
2643 
2645 
2646 
2647 
2649 
2650 
2651 
2653 
2654 
2657 
2659 
2662 
2664 
2665 
2648 
2670 
2672 
2675 
2477 
2678 
2680 
2681 
2682 
2684 
2686 
2687 
2689 
2671 
2693 
2694 
2695 
2698 
2700 
2703 


97F 
781 
982 
985 
FB6 
789 
768A 
788 
98C 
98D 
98E 
98F 
990 
991 
bs de a3 
995 
998 
998 
99C 
99F 
Fal 
FAS 
FAB 
FAB 
FAD 
BO 
9B2 
9B4 
9BS 
9Be 
9BB 
9BE 
9CO 
902 
906 
FCF 
9CB 
9CE 
D0 
IDS 
9D5 
9D6 
5D8 
FDA 
SDE 
FEO 
FES 
FE4 
9E8 
FEA 
FEE 
9FO 
9F2 
9FS 
9F7 
9FA 
9FC 
FFE 
ACO 
A04 
AQT 
AF 
ACC 
AOF 
all 
ALS 
A16 
Ale 
a1A 
A1C 
ALE 
AIF 
A21 
A23 
AZ 

A2 

AZA 
A2D 
Az 

A31 
ASS 
Ass 
AsS 
A37 
AsB 
A39 
ASA 
ASB 
ASC 
ASD 
aac 
AAS 
A4S 
Aas 
A4B 
ASE 
aso 
ASS 
ASS 
AS6 
AS7 
AS? 
ASA 
ASB 
asD 
ASE 
Abl 
Aes 
Abd 
Aes 
Ab? 
AC 
AbE 
A70 
A73 
A7S 
A7s 
a78 
a79 
ATA 
A7C 
A7E 
ATF 
ABI 
ABs 
Ags 
ABS 
A87 
ABA 
ABC 
ABF 


SUB9ES 
SES 


SUBAOF 


SuUBA1Aa 


SUBASS 


SUBA7A 


SUBASBC 


MOV %37,A 
TRAP-13 
LDA #6218 
MOV A,B 
LDA @6217 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
MOV B,R3A 
CLR RSE 
CALL @D674 
MOV R3A,A 
MOV %39,B 
CALL @FODS 
MOV %3C,B 


wbpuararpar 


MOVD “%EBAS,RSS 


CALL @C31A 
CMP R1D,R24 
INZ/JNE OB 
LDA @6223 
AND %10,A 
CMP R2S,A 
JZ/JEQ 08 
MOV A,R25 
MOV R1D,R24 
CALL @CAOF 
MOV R25,A 
JNZ/JNE O€ 


MOVD %E369,R35 


MOV %01,P10 
MOV %SC,B 
CALL @C31D 
aMP OA 

LDA @6247 
MOV “%5C,B 
TRAP-16 

MOV R1D,A 
IJNZ/JNE 09 


MOVD 4ES6C,R35 


MOV %64,8 
CALL @C31A 
TRAP-9 


MOVD 461F8,R46 


MOV %406,B 


MOVD *E35D,R35 


CLR R26 
INC R46 

ADC %00,R45 
LDA §R46 

OR ROO,R26 
DINZ B,F4 
MOV R26,A 
INZ/JNE 04 


MOVD %4E3463,R35 


MOY %02,P19 
MOV %B2,B 
CALL @C31D 
BR @C926 
MOV Z5C,B 
MOV %2E,A 
MOV 41B,P3B 
CALL @C396 
RETS 
MOV R22,A 
INZ/INE O1 
RETS 
SUB 444,a 
JPZ/JGE O2 
MOY 491,A 
BTA @6219 
MOV A,R2 
LDA #6218 
MOV A,B 
LDA 96217 
MOV A,RS4 
MOV 8,R3S 
RRC A 
RRC B 
RRC A 
RRC B 
RRC A 
B 
a 


CALL @CA7A 
MOV R3E,A 
CALL @CA7A 
MOV R3A,A 
SWAP A 

CALL @CA7A 
MOV %FF.B 
MOV R3A,A 
CALL @CA7A 
MOV %2D,A 
TRAP-13 

MOV R3B,A 
TRAP-15 
RETS 

AND %OF,A 
INZ/JNE OS 
TSTB 

JZ/JEQ OS 
MOV 4FF,B 
ADD %20,A 
TRAP-13 
RETS 

MOV %494,P3A 
IMP OS 

MOV %02,P3A 
MOV R3A,RSB 


;GOSUB SUB1474 
;60S8UB SUBSODS 


;GOSUB SUBS1A 
3;D0ES R1D = R24 (IT LOOKS LIKE IT SHOULD SEE LINE 
3TO 9BS (MAKE IT =) 


aIR1D = R24 (SEE ROUTINE AT 913 ALSO) 
sGOSUB SUBAOF 


s;LOAD REGISTER PAIR FOR C31A 


;GOSUB SUB31D 
3TO 9DA 


7MOVE (04) TO THE A REGISTER FOR CSI1A 


3G08UB SUB31A 


sREFERENCED IN TABLES 4/5 


3GOS8UB SUBTID 
3;GO0TO SUB926 


76508UB SUBS76 


3 <-> -------------- cic 
j (2 --------- <<< 
§ <---------------- <<< 


;60SUB SUBA7A 
;GO8UB SUBA7A 


;GO8UB SUBA7A 


;GOSUB SUBA7A 


913 


Ve tee 


SC Oseeun auwee, 


ATEGER GUNPe? 


* TA Bi Ue ee 
: ‘ yo ae iacan ; 


Lot #08 aif RY BS nat aalicay, ota, 


ea bay con 

TaN Rr ai* 23 nth 

: TE ae 

; yi *etae #52 

. 8. 78r ~ge 

Aare Pee hi 

: ‘ 4 Re ’ oe 1 0; SSN» “HS vor 
_ My sa Sei. ¢ 


AtLiedop cue: i489 
i F Beye is 

"ones Cver 

HVL5aT Mi SRR Se 4: er re 


pew oniag avon 
“i as 

ay uae 
“Fb a Ata 


Tees. Ai 
AL IPA.DOF “HO 


& See 

un uBR 

AME - +t ait 
ad ig +a > 


é ees. ie 
Tew ttiee  f PERE 1480 


' 2 j 2 =¥ } 


breve Tue . ee oo 
er Se 
ae? ay 


ec ec vim os 


- t i 4s Pay 
Pa rm +s 
’ 
ae or 4 
iS ns 
i 
‘ 


: AT ASE BULIE. 
Ws Ragin Wao | 


‘avenue! milan.) a. 
srewah ena: the, 


; nit) 
} i 
’ ‘ { 7 
Se OMe ee | 
LL 3 oe: 7 2 , 
4 eae! ee 


2706 
2708 
2710 
2734 
2713 
2714 
2716 
2718 
2721 

2723 
2725 
2726 
2728 
2729 
2731 

2733 
2735 
2736 
2739 
2741 

2744 
2745 
2748 
2751 

2753 
273564 
2757 
2739 
2761 

2764 
2766 
2768 
igi 

2774 
2776 
2777 
2778 
2781 

2782 

2785 
2788 

2791 

2793 
2796 
2799 
2802 
2804 

2805 
2806 

2809 
2810 
2812 
2816 

2819 
2822 
2825 
2829 
2831 

2834 
2836 
2838 
2841 

2843 
2846 
2848 
2850 
2853 
2854 
2855 
2859 
2863 
2865 
2868 
2870 
2873 
2875 
2878 
2882 
2885 
2887 
2889 
2891 
2894 
2896 
2899 
2900 
2904 
2907 
2908 
2911 
2914 
2917 
2920 
2922 
2924 
2927 
2931 

2935 
2938 
2939 
2941 

2942 
2945 
2947 
2949 
2953 
2957 
2960 
2962 
2965 
2947 
2969 
2970 
2971 

2975 
2979 
2981 

2983 
2985 
2988 
2971 

2995 
2995 
2997 
Z999 

T001 

3003 
3005 
3009 
3011 

301s 


Bcs 


SUBABS 
SUBABS 


ADs 


SUBAFA 


SUBBSS 


MOV R10,A 
JNZ/JNE O1 

RETS 9 wo nm me ar we me me ow mmm mee 
LDA *RSS 

TRAP-16 

DEC R3B 

INC RSS 

ADC %400,R34 

DEC R10 

JNZ/JNE O1 

RETS 3 Sweeter ose 
LDA EROS 

TRAP-15 

DEC RSB 

JNZ/JNE EF 

MOV %2E,A 

TRAP-135 

MOV R3A,R3B 

JMP E7 

MOV 4FF,P3B 

LDA £RSS 

MOV 408,8 

XOR ROO,RSB 

AND %7F,A 

XOR ROO,RS3B 


INC/IL OS 
XOR %9A,R3B 

DINZ B,EE 

INC R3S 

ADC %00,R34 

DINZ R10,E2 

MOV R3B,A 

RETS j (ooo ------------- 
TRAP-21 }REFERENCED IN TAB 
MOV %05,P21 

CLR A 

STA @627F 

STA @6280 

BTA @6281 

MOV 4FF,A 

STA @6310 

STA @630F 

MOV %47,P20 

MOV %OF,A 

TRAP-17 

TRAP-9 

MOY %“FF,P28 

CLR A 

MOV A.R25 

MOVD %CBSB,R4C 

MOV %405,P21 

CALL @CCAB ;G08UB SUBCAB 
CALL @cCcCis ;GOSUB SUBC13 
MOVD %1ASE,R4Z ;0DD VALUE TO LOAD 
MOV %AC.B 

CALL @cceD ;S0SUB SUBCBD 
DECD R42 

INC/JL OF 

LDA @6310 

IJNZ/JNE OA 

LDA 4311 

JZ/JEQ 27 

IMP 03 

BR @CE1S ;GOTO SUBEIS 
TRAP-19 

TRAP-9 

BTJO 401,R19,E2 

BTJZ %401,R1A,DE 

MOY “OC,A 

CMPA @6255 DIRECT COMPARISON 
IJNZ/IJNE D7 

LDA @6281 

JMP 2D 

MOV %0S,P21 

BTJO %80,R28,BA 

LDA @6280 

IMP BS 

CLR R28 

MOV R25,a 

STA @6280 

MOV %2E,A 

CALL @c3eD ;GOSUB SUB3ED 
TRAP-9 

MOVD %630F,R46 

CALL @C3A7 ;GOSUB SUB3A7 
TRAP-9 

LDA @6313 

STA @627F 

LDA @6312 

STA @6281 

MOV A,R25 

CLR R27 

CALL @cC13 ;GO8UB SUuBC13 
MOVD %CB3B,R4C 

MOVD %E17D,R35 

CALL acsis ;608UB 8UB318 
TRAP-9 

MOV %03,B 

CLR A 

STA @627A(B? 

DJNZ B,FB 

CLR R26 

MOVD %41ASE,R42 :O0DD VALUE TO LOAD 
BTJO “FF,R27,0C 

LDA @6310 

INZ/INE 07 

LDA @6311 

INZ/JNE O02 

INC R27 

TRAP-19 

TRAP-9 

BTJD %01,R19,06 

BTJO %01,R1A,09 

IMP EO 

DECD R42 

IC/J8 EO 

BR @CE15 ;G0TO SUBE15 
LDA #6255 

CMP %OC,A 

INZ/INE 06 

MOY R246,B 

JZ/JEQG CE 

IMP 24 

CMP %OA,A 

INC/JIL 14 

BTJO 4FF,R26,04 

CMP %0B,A 

JZ/JEQ 06 

LDA @6281 
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SuBcis 


SuBC26 


SUBCS? 


SUBC7D 


SUBC8D 


SUBCAB 


SuscBs 


SUBCD7 


BR @CAFA 
LDA @627F 
BR @CAFA 
MOV R26,A 
JNZ/JNE 08 


MOVD %E123,RS35 


CALL @C318 
TRAP-9 
CALL @CC26 
MOV R23,B 
INZ/JNE OB 
MOV R26,B 
3Z/JEQ 15 
CMP %03,B 
JZ/JEQ 17 
BR @acBes 
MOV %21,P42 


MOYD %E£132,R35 


CALL @c318 
TRAP-9 

DJNZ R42,FC 
LDA @6281 
BR @CB68 
CLR R26 

MOV R24 


a 
BTJO %480,R28,05 


CMPA @6280 
JZ/JEQ ED 
BR @CAFA 
LDA @630F 
CMP ROO,R2S 
JZ/JEG OA 
MOV R2S5,A 
STA @530F 
MOV %FF,A 
STA 94310 
RETS 

MOV %OC,A 
CMPA @6255 
JNZ/JNE OD 
MOV R26,A 
JZ/IJEQ 27 
DEC R26 
MOV 42E,A 
MOV R26,B 
IJNZ/INE 17 
RETS 

MOV 4FF,P25 
CALL @ccs? 
MOY R23,B 
JNZ/INE 14 
MOV R26,B 
LDA @6255 
STA @6278B(B) 
ADD %20,A 
INC R26 
ADD %4A9,8 
TRAP-12 
CLR R23 
CALL @CCS9? 
RETS 

MOV R26,B 


BTJZ %FF,R23,0A 


CLR R23 

LDA @6255 
MOY A,R24 
TSTB 

IMP 06 

LDA @627A(B) 
MOV A,R24 
DEC B 
JZ/JEQ 1B 
PUSH B 

LDA @627A(B) 
MPY %0A,A 
ADD RO1,R24 
ADC ROO,R23 
POP B 

DEC B 
JZ/JEQ OB 
LDA @527A(B) 
MPY 454,A 
ADD RO1,R24 
ADC ROO,R23 
RETS 

LDA 6230 
CMP ROO,R2B 
JZ/IED 12 
MOV A,R2B 
ADD R2A,B 
MOV %2E,A 
TRAP-12 

INC R2A 

CMP %0S,R2A 
JC/I8 OS 
INC B 

MOV %2D,A 
TRAP-12 
RETS 

CLR R2A 
RETS 


MOVD 4E123,R35 


CALL @cC31B8 
MOV %A9,B 
CALL acces 
RETS 

MOV R25,R23 
MOY %1F,A 
INC A 

SUB %64,R23 
JC/J5 FA 
TRAP-12 

ADD %64,R23 
MOV %1F,A 
INC A 

SUB %40A,R23 
JC/38 FA 
TRAP-13 

ADD %2A,R23 
MOV R23,a 
TRAP-13 
RETS 
TRAP-21 

MOY %08,P21 
TRAP-9? 

CALL @DOF9 
IN/ILT 07 
CALL @DoDs 
AND %7F,A 
STA R46 
AND %60,R20 


3GO0TO SUBAFA 
360TO SUBAFA 


;608UB SuB318 
;G0SUB SUBC2é4 


3G60TO SuBBSS 


;GOSUB SUB318 


s;GOTO SUBBSS 


;DIRECT COMPARISON 
360TO SUBAFA 


;DIRECT COMPASRISON 


;GOSUB SUBCS? 


360SUB SUBCS9 


} 62-3 - = -------- <<< 
j 6-2-7 ------------ <<< 
€---------------- <<< 


1+GO08UB SUB318 


;GOSUB SUBCBS 
so eese == ee on aie a a oor q<¢ 


3 
JREFPERENCED INT TASLES) 6/17 °F = oe es 


+GOSUB SUBLOF9 
;GOSUB SUB1908 
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3307 CEB CLR RIF 


3309 CED SUBCED TRAP-21 
3310 CEE MOV %08,P21 
Sais: CF} TRAP-9 
3314 CF2 CALL @CErFB ;GO0SUB SUBEFB 
3317 CFS TRAP-9 
3318 CFs LDA 86278 
3321 CF9 BTJO %~02,48,18 
3324 CFC CALL @CECcB ;608UB SUBECB 
3327 CFF JN/ILT OS 
3329 vdo1 CALL @CESB6 ;GO0SUB SUBESS 
3332 p04 IMP EF 
3334 DOS CALL @DOF4 ;608UB SUB1OF4 
3337 Dog IN/ILT OF 
3339 DOB LDA ®R46 
3341 pop OR %B0,A 
3343 DOF STA *R46 
3345 Dil CALL acess +GOSUB SUBESS 
3348 D114 TRAP-9 
3349 DIS BTJZ %20,R1F,03 
3353 D19 BR @CD4F 3;G0TO SUBD4F 
3356 Dic MOV R15,A 
3358 odie AND %60,A 
33460 D20 CMPA 86279 DIRECT COMPARISON 
3363 D223 JZ/JEQ 96 
3363 D025 STA @6279 
3368 D028 AND %FB,RIF 
3371 D2B BTJO %480,R1D,0E; IS THE AUTHORIZATION GARBAGE?777777777777777 TO DSD 
3375 D2F BTJZ 4FF,R1E,1C 
3379 D353 BTJO %07,R1D,02;19 IT °M?,"E” OR BE’ PPAIPIPIAPPI7FAIP7TIPP? TO DAF 
S393 OS7 IMP 16 ;JUMP TO D4F 
3385 D397 BTIC 404,R1F,12 
338? o3D MOV R1D,B 
3391 DSF AND 407,8 
S393 Dal CMP %04,B 
33975 D435 INZ/INE 04 370 D49 
3397 D45 BTJO %01,R1F,06;TO DAF 
3401 D49 OR %05,R1F 
3404 D4C BR @D19A ;650TO SUB119A 
3407 D4F SUBD4F CMP 401,R1D 718 IT AN ° 2? 
3419 DS2 JZ/JEQ 47 TO DSB 
3412 DS4 LDA @628D 
3415 D57 JNZ/JNE 48 370 DAS 
3417 DS? LDA 9628E 
3420 DSC JZ/JEQ 3D 3TO D9B 
3422 DSE LDA @51E7 
3425 Ddél JZ/JEQ 38 3;TO D9B 
3427 Dés CMPA @6233 ; DIRECT COMPARISON 
3430 D665 INZ/JNE 33 3;TO D9B 
3432 DéB LDA @628B 
3435 Dé6B BTJO %80,8,2D ;TO D9B 
3438 Dé6E LDA 86230 
3441 D71 MOV A,R23 
3443 073 LDA @6231 
3446 D764 MOV A,R24 ;REGISTER 24 GETS A VALUE HERESKSERERRERTEEREE SAREE 
3448 D078 LDA @6232 
3451 vD7B MOV A,R25 
3433 D7D LDA @61F5 
3456 pDs0 MOV A,R26 
3458 pDs2 LDA @61F6 
3461 Dss MOV A,R27 
3463 DB7 LDA @61F7 
3465 DSA MOV A,R28 
3468 DS8C CALL @CE2D ;GO0SUB SUBE2D 
3471 DSF JPZ/3IGE 1C 3TO DAD 
3473 D911 CALL @CE37 ;GOSUB SUBES7 
3476 D4 JZ/JEQ 17 3TO DAD 
3478 D976 MOV %B0,A 
3480 D998 STA @628B 
3483 D09B BTJZ %40,R1F,05;TO DAS 
3487 DOF CLR R20 
2489 DAI BR @CCED 360TO SUBCED 
3492 DAS DA4 BTJO %40,R1F,02;TO DAA 
3496 DAB CLR R20 
3498 DAA DAA BR accrs 3S50TO SUBCFS 
3501 DAD DAD LDA @626F 
3504 DBO JNZ/INE F2 1TO DA4 (LOOP) 
3504 DB2 LDA @6290 
3509 DBS INZ/JINE ED 3TO DA4 (LOOP) 
3511 DB7 CALL @CE1D 3;50S8UB SUBE1D 
3514 DBA CALL @CE2D 3;GOSUB SUBE2D 
3517 DBD JPZ/JGE DC 3;TO DFB (LOOP) 
3519 DBF CLR R2O 
3521 dC1 LDA @61F1 
3524 pc4 BTJZ %ROB,A,O3 :;TO DCA 
3527 DC7 OR %20,R20 
3530 DCA BTJO %02,A,03 ;TO DDO 
3833 DCD DR %40,R20 
3536 DDO LDA @628E 
3539 DDS CMPA @628C ;DIRECT COMPARISON 
3542 Dds JNZ/INE 08 3TO DEO 
3544 ops BTJO %420,R1F,BF 
3548 DDC BTID %40,R1F,30 
3852 DEO AND %DF,RIF 
3555 DES STA @628C 
2558 DFS TRAP-F 
3559 DE7 CALL @CEFB 3;60SUB SUBEFB 
562 DEA TRAP-9 
3563 DEB MOVD %628E,R46 
3567 DEF CALL @C3A7 }G08UB SUBSA7 
3579 DF2 LDA @61F1 
3573 oFs BTJZ 4R10,A,0C ;TO E04 
3576 OFS MOY %4A6,B 
3578 DFA MOVD %6235,R35 
3582 DFE MOV %404,P10 
3585 E01 CALL @caAsc ;GOSUB sUuBASC 
358s £04 OR 4£40,R1F 
3591 £07 CALL @CE37 ;G0SUB SUBES7 
} 3574 EOA JZ/JEQ SA 3TO D96 (LOOP) 
( 3596 EOC MOVD Z%OGCA,R42 ;ODD VALUE TO LOAD !'!iirrtsarreeresens 
3600 £10 TRAP-9 
. 3601 E11 DECD R42 
3603 £13 JC/JS SF 3TO DA4 (LOOP) 
3608S £15 SUBE15 OR %20,R1F 
3608 E18 CLR R20 
3610 E1A BR @CCED ;650TO SUBCED 
3613 E1D SUBE1D LDA @61F2 
| 3616 £20 MDV A,R26 
t 3618 E2 LDA @41F3 
oe S621 £25 MOV A,R27 
3623 E27 LDA @61F4 
3626 E2A MOV A,R28 
3628 E2C RETS ik Socleherttenhatetentebenteietecetened <<< 
34629 E2D SUBE2D SUB R23,R26 
3632 E30 SBB R24,R27 
3635 ES SBB R25,R26 
3638 E36 RETS ik Setententeteceiententeeteaiteneten rar a4 
3639 £37 SUBE37 MOV %FF,B 
3641 E39 LDA @61F2 
3644 ESC CMPA @61F5 ;DIRECT COMPARISON 


3647 ESF INZ/INE 11 
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SUBESS 


SUBES6 


SUBEFB 


Fo2 


LDA @41F3 

CMPA M61FS6 
JNZ/JINE OF 
LDA @61F4 

CMPA @61F7 
JNZ/INE O1 
CLR B 


; DIRECT COMPARISON 


; DIRECT COMPARISON 


STA @4216 

CLR R20 

BTJZ 440,R1F,04 
CALL @CEFB 
TRAP-9 

MOY %04,P24 

MOV 434,80 

BTJZ %91,R24,02 
MOY 4OF,A 

MOV %13,8 
TRAP-12 

MOV %07,P42 
TRAP-& 

DINZ R42,FC 
DINZ R24,EB 

LDA @6216 

PUSH A 

LDA @6215 

PUSH A ~ 
RETS } 62 --------------- cna 
POP A 

STA @6215 

POP A 

STA @6216 

CLR R20 

BTJZ %40,R1F,04 
CALL @CEFB 
TRAP-9? 

LDA R46 

MOV A,B 

CLR A 

STA R46 

DECD R46 

LDA &#R46 

OR %80,A 

STA ®R46 

SUB %402,R46 

SBB %00,R45 

MPY %418,B 

MOVD RO1,R42 
INC R42 

ADC %00,R41 
CALL &@C3A7 ;GOSUB SUBSA7 
TRAP-9 
DECD R42 
JC/JS FB 
CALL @CEFB 
TRAP-F 

LDA 6216 
PUBH A 

LDA @6215 
PUSH A 
RETS }é---------------- é<< 
MOV %05,P25 

LDA 96590 

DINZ R25,02 

IMP 19 

MOV A,R24 

CALL apoDs ;SO0S5UB SUB10D8 

AND %OF,A 
JNZ/JINE 09 
INC R46 

ADC %00,R45 
LDA £R46 
INZ/INE 109 
MOV R24,A 
CMPA @6S59C 
INZ/INE O3 
MOV 4FF,A 
RETBS p6coo ooo ---- raed 
MOV A,B 

LDA #46594(B) 

IMP DF 

MOV R24,A 

RETS }60--------------- cara 
MOV %OF,A 

TRAP-17 

AND %BF,RIF 

RETS {---------------- eK 


;GOSUB SUBEFB 


1G0SUB SUBEFB 


;G05UB SUBEFB 


; DIRECT COMPARISON 


5 
MOV ROS,B pREFERENCED IN TABLES 15/1788 Rees esege 


LDA 86238 
CMPA @6002(B? 
JZ/JEQ OS 

BR @F38A 

LDA 96237 
CMPA @6003(B) 
IJNZ/JNE FS 
LDA @6236 
CMPA @6004(B) 
JNZ/JNE ED 
LDA @6028(B? 
CMPA @6247 ;DIRECT COMPARISON 
JNZ/JNE ES 
LDA @6006(B) 
CMP %04,A 
JC/J8 DE 

MPY 481,A 
MOVD %6390,R48 
ADD RO1,R48 
ADC ROO,R47 
LDA *R48 

MOY ROS,B 
LDA @6007(B) 


CMPA &R48 ;COMPARE WITH REGISTER PAIR R47,R48 


JZ/JEQ 74 
STA =R4B 

BTJZ %R40.A,08 
MOY %FF,A 

STA @6268 

STA @6260 

MOV %FF,A 

INC R48 

ADC %00,R47 
STA aR48 

DECD R48 

MOV ROB,B 

ADD %07,B 

CALL @co79 

LDA 86282 

BTJUO %OF,A,49 


;GOSUB 8UBO79 
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3946 FSA MOV ROS,B 


3948 FO6C ADD %05,8 
39S0 FASE LDA 9600118) 
3953 F771 CMPA @659C ;DIRECT COMPARISON 
3956 F74 JZ/JEQ 3D 
3958 F776 CMPA @689D ;DIRECT COMPARISON 
3761 F79 IJNZ/INE OF ;EITHER OR SITUATION 
953 F7B MOV A,B 
3964 F7C LDA @6594(B? 
S767 FTF BTA @459D 
3970 F82 IMP 22 
3972 *FS84 MOV A,ROA 
3974 FBS MOV ROA,B 
3976 FSS LDA @6598(B?) 
3979 FSB PUSH A 
3980 FeC MOV ROA,B 
3982 FE LDA @6594(B) 
3985 FFI POP B 
3986 FIZ STA @6594(B? 
3989. F9S MOV ROA,B 
3991 F97 LDA #6594(B) 
3994 FSA PUSH A 
3995 FOB MOV ROA,B 
3997 FSD LDA @6598(B? 
4000 FAO PoP B 
400i FA STA 94598 (B? 
4004 FA4 MOV ROA,B 
4006 FAS LDA @659C 
4009 FA? STA @6598(B) 
4012 FAC XCHB A = 
4013 FAD STA 86594(B) 
4016 FBO STA @659C 
4019 FBS CALL @£106 +GOSUB SUB106 
4022 FBS BR @F38A 
4025 FB? INC R48 
4027 FBB ADC %00,R47 
4030 FBE LDA *R48 
4032 FCO MOV A,B 
4033 FCi INC R48 
4035 FCS ADC %00,R47 
4038 FCS LDA %R48 
4040 FCS SUB %02,R48 
4043 FCB SBB %00,R47 
4046 FCE TSTB 
4047 FCF JNZ/JNE 8C 
4049 FD1 BTJO “OF,A,89 
4052 FD4 BR @F38A 
4055 FD? FD7 TRAP-21 sREFERENCED IN TABLES 16/1777 37° % 745 3%% 
4056 FDB MOV %80,P21 
4059 FDB MOV 4OF,A 
4061 FDD TRAP-17 
4062 FDE TRAP-9 
4063 FDF CALL @DOFE ;GOSUB SUBILOFE 
4066 FE2 JPI/JSE 17 
4068 FE4 MOV %21,P42 
4071 FE7 TRAP-21 
4072 FEB MOV %02,P21 
4075 FEB CLR R20 
4077 FED MOVD %€141,R35 
4081 FF CALL @c3i8 ;60SUB SUB318e 
4084 FF4 TRAP-? 
4085 FFS DINZ R42,FC 
4088 FFS BR @CCD7 ;GOTO SUBCD7 (MIGHT BE TURN ON ROUTINE? 
4091 FFB TRAP-21 
4092 FFC MOV %02,P21 
4095 FFF MOV 443,P20 
4098 1002 CALL @DOFS ;650SUB SUB1OF9 
4191 1905 JPZ/I5E 93 
4103 1007 LDA @6S9C 
4106 100A MOV A,R25 
4108 100C IMP 7A 
4110 100E LDA @659C 
aia (Ov? CMP R25,A 
4115 1013 INZ/JNE 07 
4117 1015 MOVD %4E150,R35 
4121 1019 BR @DO9?7 
4124 101C MOV R25,B 
4126 101E LDA 96594(B) 
4129 1021 MOV A,R25 
4131 1023 CALL @DoODS }G0SUB SUB10D8 
4134 1026 AND %OF,A 
4136 1928 INZ/JINE £4 
4138 102A MOV R25,R23 
4141 102D TRAP-21 
4142 102E MOV 402,P21 
4145 1931 MOV %OF,A 
4147 1033 CALL @C38D ;G08UB SUB38D 
4150 1036 TRAP-9 
4151 1037 MOV R2S,A 
4183 1039 CALL @DODS }50SUB SUB10D8 
4156 163C OR %CO,A 
4158 103 BTA R46 
4160 1040 INC R46 
4162 1942 ADC %00,R45 
4165 1045 CLR A 
4166 1946 STA R46 
4168 1048 SUB %03,R46 
4171 1048 SBB %00,R45 
4174 104E CALL @C3A7 3;G08UB SUBSA7 
A177 19051 TRAP-9 
4178 1052 MOVD %E16E,R35 
4182 1056 CALL @c31i8 }608UB SUB318 
4185 1059 TRAP-9 
4185 195A MOV R23,R25 
4189 105D TRAP-19 
4190 105E MOVD %1ASE,R42 ;ODD VALUE TO LOAD !i!tirrstrersrssrrys 
4194 1062 TRAP-9 
| 4195 1043 DECD R42 
| 4197 1065 JC/3S OS 
4199 1067 BR @CE15 3;G0TO SUBE15 
4202 106A MOV R19,A 
4204 106C JNZ/INE F4 
4206 106E MOV %0OA,A 
4208 1970 CMPA #6255 ; DIRECT COMPARISON 
| 4211 1073 JZ/JEQ 99 
| 4213 1075 MOV %OB,A 
A215 1077 CMPA @6255 ;DIRECT COMPARISON 
4218 107A UNZ/JNE £1 
| 4220 107C LDA @459D 
4223 107F CMP R25,A 
4225 1081 JZ/JEQ 10 
| 4227 1083 MOV R25,B 
| 4229 1085 LDA @6598(B) 
4232 10988 MOV A,R2S 
| 4234 108A CALL @poDe ;G08UB 8UB10D8 
4237 108D AND 4OF,A 
: 4239 108F JZ/JEQ 99 
{ 4241 10971 IMP E9 
4243 1093 MOVD %E1SF,R35 
AZ4AT 1097 CALL @C318 ;SO0SUB SUBT19 


4250 109A MOV %21,P42 
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4253 109D TRAP-21 


4254 109E MOV %02,P21 

4257 10A1 TRAP-9 

4258 10A2 DINZ R42,FC 

4261 10A5 BR @DO0OS2 

4268 1088 MOV “4FF,A 

4266 1OAA MOV %04,B 

4268 10AC MOVD %6391,R48 

4272 19680 MOV B,A 

4273 10B1 STA @6597 (B) 

4276 10B4 SUB %02,A 

4278 :0B6 STA @6593(B) 

4281 10B9 DECD R48 

4263 10BB CLR A 

4284 108C STA ¥R48 

4286 10BE INC R48 

4288 10C9 ADC %00,R47 

4291 10C3 INV A 

4292 1004 STA *R48 

4294.10C4& ADD %81,R48 

4297 10C9 ADC %400,R47 

4300 10CC DINZ B,E2 

4302 10CE CLR A 

4303 10CF STA @659C 

4306 10D2 MOV %03,A 

4308 1004 STA @659D 

4311 1007 RETS 9 scr ae se ser rae Sele nine me ae en me <C¢ 
4312 1008 SU510D08 MPY 481,A 

4314 10DA MOVD 46391,R46 

4318 10DE ADD RO1,R46 ~ 

4321 1081 ADC ROO,R4S 

4324 10E4 LDA EFR46 

4326 10E6 INC R46 

4328 10&8 ADC %00,R45 

4331 10EB TSTA/CLRCE 

4332 10EC JZ/JEQ OS 

4334 10EE MOV “FF,A 

4336 10F0 RETS Th Soeticstertenesatentontetetatasiad £66 
4337 19F1 LDA *R46 

4339 10F3 RETS i Solertectertesieteacnacereteateteraten 6K 
4340 10F4 SUB1OF4 MOV “%SF,PSA 

4343 10F7 JMP O8 

4345 10F9 SUBLOF9 MOV 44F,P3A 

4348 10FC gMP OS 

4350 10FE SUBILOFE MOV “4OF,P3A 

4353 1101 MOV %05,P3E 

4356 1104 LDA @659D 

4357 1107 DINZ RSE,O2 

4362 1198 JUMP 16 

4364 110C MOV A,RSB 

4366 119€E CALL @DODSs 350SUB 5uUB1908 
4367 1111 AND RSA,A 

4371 11153 JZ/JEQ 10 

4373 1115 MOY RIB,A 

4375 1117 CMPA @659C :DIRECT COMPARISON 
4378 1114 JZ/JEG 96 

4380 111C MOV A,B 

43651 1110 LDA #657418) 

4384 i120 gMP ES 

4386 1122 MOV 4FF,PSB 

43597 1125 MOV RSB,A 

4371 1127 RETS ooo <== SSS=SSc>> <<< 
43972 1128 TABLE19 89,80,80,80,80, 80,80, 80,80, 80,89,89,0D,80,89.80,89; 
4408 1138 1138 MOV 4OF.A REFERENCED IN TABLES 14/17°** vet ¥susys 
4410 113A TRAP~-17 

4411 113B TRAP-9 

4412 113¢ BTJZ 480,R21,92 

4416 11490 BR £R4C 

4418 1142 OR %49,R29 

4821 1145 MOV R21,8 

4423 1147 LDA @D18A(B) 3 LOOKUP TABLE12 
4426 114A MOV A,RIS 

4428 114C LDA @D1L7ACB) ;LOOKUP TABLE11 
4431 114F MOV 4,R34 

4433 1151 LDA @E4D8(8) ;LOOKUP TABLE20 
4436 1154 MOV A,R10 

4438 1156 CLR B 3B = 9 

4439 1157 CALL @C31D ;GOSUB SUB31D 
A442 115A MOVD “4EB39,RI5 

A445 115E MOV R21,B 

4448 11590 LDA @D28(B) 7LOOKUP TABLEI10 
4431 1163 MOV A,R21 

4453 1165 CALL #318 1GOSUB SuBs18 
4436 1168 MOVD ZIASE,R46 3;O00D VALUE TO LOAD !!itritrptrrtrrerets 
4460 116C TRAP-9 

4461 116D DECD R46 

4453 116F JC/JS FB 

4465 1171 BR @CE1S5 360TO SUBE1S 
4468 1174 TRAP-21 POP R4C 

4470 1176 POP R4B 

4472 1178 BR *R4C 1 BRANCH 

4474 117A TABLE11 E4,E5,€5,€&6,€6,€6,€7,€7,E8,E8,E8,&97,F97,EA,EA,EA 
44979 118A TABLE12 E8,33,9C,05,6B,D04,30,97,0F,87,£1,5B,A4,9D, 67, DF 
4506 119A TRAP-9 s; THESE TABLES CONTROL TEXT VALUES 
4507 1198 TRAP~21 

4508 119C MOV %08,P21 

4511 119F CLR RIF 

4513 11A1 CLR R28 

4S1S 11A3 LDA @622D 

9518 1186 MOV A,R25 

4520 1148 CALL @Dé6BA 3G0SUB SUB16BA 
4523 11AB MOV R26,A 

4525 11AD BTJO %408,A,05 

4528 1180 CALL @D6A7 ;G08SUB SUB16A7 
4S31 1183 JN/ILT 06 

4533 11B5 MOV %06,P21 

4536 1188 BR @D266 

4539 11BB MOV %2E,P42 

4542 11BE TRAP-9 

4543 11BF MOV %0F,A 

4545 11C1 TRAP-17 

4546 11C2 TRAP-9? 

4547 11C5 TRAP-21 

4548 11C4 MOV %08,P21 

4551 11C7 CLR R27 

4553 1109 BTJZ %480,R26,05 

4557 11CD BR @CCED 3;G0TO SUBCED 
4560 11D90 BTJZ %10,R26,0B 

4564 1104 MOVD “DECB,RSS 

4368 1108 MOV 478,8 

4579 11DA CALL @C3OD +G0SUB SUBSOD 
4573 11DD JMP 6A 

43575 11DF MOD KOGEL. R42 POODOVAUVEITOLLOAD PEP Abe ek eters sts 
4579 11ES TRAP-21 

4560 11&4 MOV 408,P21 

4S63 11E7 BTJZ %20,R26,08 

4587 11EB MOVD “4DE17,R355 

4591 11EF MOV 478,B 

4593 11Ft gmMP 15 

4395 11F3 BTJZ 440,R26,50 

4599 11F7 CALL §$D6B1 ;GOSUB SUB16B1 
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4602 
4606 
4608 
4610 
4612 
4614 
4617 
4619 
4621 
4622 
4625 
4628 
4532 
4635 
4636 
4640 
4642 
4645 
4647 


4650: 


4651 

4454 
4656 
4658 
4659 
4662 
4665 
4667 
4671 

4674 
4676 
4678 
4681 

4682 
4685 
4687 
4689 
4690 
4693 
3676 
4599 
47091 

4704 
4707 
4710 
471s 
4715 
4718 
4722 
4725 
4726 
4730 
4732 
4736 
4739 
4743 
4744 
4745 
4747 
4750 
4754 
4757 
4760 
4762 
4765 
4768 
4771 
4773 
4776 
4778 
4760 
4782 
4784 
4787 
4789 
4791 

4793 
4795 
4798 
4801 

4803 
4806 
4808 
4610 
4813 
4814 
4817 
4819 
4822 
4825 
4829 
4830 
4831 

4834 
4837 
4B38 
4840 
ap42 
4843 
4846 
4B49 
4852 
4es4 
4857 
4858 
48460 
4842 
4865 
4847 
4567 
4871 

4873 
4875 
as77 
4880 
aB82 
488s 
4887 
4890 
4892 
4894 
4897 
4901 

a904 
4906 
aso7 
4910 
agi 

4914 
4918 
4921 


12D6 


MOVD %€240,R3S5 
MOV %50,B 

MOV R27,A 
IN/ILT 02 

MOV %78,B 
CALL @cC3iA 

MOV R24,B 

ADD %02,B 
TRAP-10 

LDA @6100(B) 
BTJZ %RO1,A,0A 
MOVD %E27C,R3S 
MOV %0S,P10 
CALL @C337 

MOV R27,A 
JPZ/QGE 27 
CALL @D8F9 

IMP 22 

MOV %43,P42 
TRAP-21 

MOV %08,P21 
TLR R20 

MOV R24,B 
TRAP-10 

LDA @6113(B? 
BTJZ “R19,A,09 
MOV %64,B 

MOVD %4£28B,R3S 
CALL @C31A 

MOV R24,A ~ 
MOV %78,B 

CALL @D60F 
TRAP-9 

CALL SDSCC 

MOV R24,B 

ADD %92,8 
TRAP-10 

LDA @6100(B) 
BTJZ %RO1,A,08 
CALL @FCZ22 

MOV %A0,B 

CALL @FCEE 
DINZ R42,E6 

BR @CCED 

MOV %40,P20 
MOV 42E,A 

CALL #C3B8D 
MOVD 4E2F4,R35 
CALL @c318 
TRAP-9F 

BTJZ %80,R26,5F 
MOV %64,B 

MOVD 4E2B8,R35 
CALL @C31A 
MOVD %1ASE,R42 
TRAP-19 

TRAP-9? 

MOV “Z3C,B 

MOV %03,P10 
MOVD %DE44,R35 
CALL @C31D 

LDA 9622F 

MOV %4B,B 

CALL @D617 

LDA @622F 

CALL @D4A7 
IN/ILT 2E 

LDA @622E 

AND %18,A 
JZ/JEQ 2A 

DECD R42 

IC/IS 93 

BR @CE15 

MOV R19,A 
INZ/JNE D1 

MOV R1A,A 
JNZ/JNE CC 

LDA @622F 

CALL @D6A7 
IN/JILT 10 

LDA @622E 

AND %18,A 
IZ/3EB OC 

LDA @622F 

MOV A,B 

CALL @C3FD 

JMP ES 

BR @CCED 

BR @CCD7 

MOVD %1ASE,R42 
TRAP-19 

TRAP-9 

CALL @D7E1 
CALL a@pscc 
TRAP-9 

MOV R24,B 

ADD %02,8 
TRAP-10 

LDA @6100(B) 
BTJZ %RO1,A,08 
CALL @FC22 

MOV 478,B 

CALL @FCEE 
TRAP-9F 

DECD R42 

JC/J8 O03 

BR @CE15 

MOV R19,A 
IJNZ/INE D9 

MOV RZB,A 
JZ/JEG 11 

MOV R1A,A 
INZ/JINE 93 

BR @D3BB 

MOV %0C,A 

CMPA 96255 
INZ/INE C2 

BR @D19A 

MOV R1A,A 
INZ/JNE BB 

MOV %401,P28 
BTJZ %08,R26,1B 
CALL @DSAE 
JC/IS 16 
TRAP-9 

MOV %2D,P42 
TRAP-21 

MOY %06,P21 
MOVD %DEBC,R3S 
CALL @c318 
TRAP-9 


350SUB SUBSIA 


7#608UB SUBS37 


3;GOSUB SUB16F9 


;GOSUB SUBSI1A 


}GOSUB SUB1460? 
;608UB SUBISCC 


;60SUB SUB3C22 
}SO0SUB SUBSCEE 
3G0TO SUBCED 


;GO0SUB SUB38D 
;508UB suBs18 


17G0SUB SUBSIA 
30DD VALUE TO LOAD 


+GOSUB SUBS1D 


;GO0SUB SUB1417 
3G0SUB SUB16A7 


AUTH CODE STORED HEREXRKES KEE EREREEKEETE REE ERTES 


370 12D6 


;TO 12B3 
;G0TO SUBE15 


;GOS8UB S8UB16A7 


ZAUTH CODE STORED HERES RE ERREEREREREE REET EEE 


370 12D6 
360SUB SUBSFD 
36O0TO SUBCED 


}50TO SUBCD7 
;ODD VALUE TO LOAD 


3}G6O0SUB SUB17E1 
s;G60SUB SuUs815CC 


;GOSUB SUBSC22 
;SO0SUB SUBSCEE 


$60TO SUBE1S 


DIRECT COMPARISON 


;GOSUB SUBISAE 


;GOSUB SUB318 
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4922 133A DINZ R42,FC 
4925 133D BR @D19A 
4928 1340 MOV R26,A 
4930 1342 CALL @DéA7 +G08UB SUB16A7 
4933 1345 IN/ILT 13 
4935 1347 MOV A,B 
4936 1348 CALL @C402 6O0SUB 8UB402 
4939 1348 MOV R26,A 
4941 134D CALL @Dé6A7 1508UB SUB16A7 
4944 1350 IN/ILT O3 
4946 1352 BR @CCD7 +GOTO SUBCD7 
4949 13355 CALL @D46BA ;GO08UB SUB14BA 
4952 1358 IMP E6 
4954 135A BTJO %08,R26,03 
4958 135E BR @CCED ;GO0TO SUBCED 
4961 1361 LDA 96260 
4964 1364 IN/ILT 41 
4966 1366 TRAP-~21 
4967 1367 MOV %404,P21 
4970 136A MOY 42E,8 
4972 136C CALL @csaD ;GOSUB SUB3BD 
4975 136F TRAP-9 
497& 1370 MOY %8C,B 
4978 1372 MOVD %E1AA,.RSS 
4982 1376 CALL @C31A ;GOSUB SUB31A 
4985 i379 MOVD 4E19B,R35 
4989 137D CALL @C318 ;GO8UB 5U8318 
4992 1380 TRAP-9 
4993 1381 CALL @DBAO ;G0SUB SUB18A0 
4996 13984 CALL AD69AQ - 3S08UB SUB14697A 
4999 1387 JZ/JEQ 1€ 
5001 1389 MOY 421,.P42 
$004 138C TRAP-21 
5005 138D MOV %04,P21 
5008 1390 MOV %8C,B 
5019 1392 MOVD 4E8AS,R35 
S014 1396 CALL @C31A ;GOSUB SUB314 
S017 1399 MOVD 4€189,R35 
S021 139D CALL @c318 ;G08UB SUB318 
5024 13Aa0 TRAP-? 
$025 13A1 DINZ R42,FC 
5028 13A4 BR @D366 
S031 13A7 TRAP-21 
So32 13a8 MOV %09,P21 
5035 13Aa8 MOVD %E444,R465 
5039 13AF TRAP-18 
5040 13B0 TRAP-9 
S041 1381 MOY R24,A 
S043 13B3 MOV %00,8 
5045 1385 CALL @D609 ;GOSUB SUB1409 
5048 1388 BR @D2D9 
S0S1 1388 CALL @DB469 ;60SUB 5UB1849 
5054 13B8E BR @CCED }G0TO SUBCED 
SOS7 13C1 1302 TRAP-9 ;REFERENCED IN TABLES 16/17°***s***58%% 
5058 13C2 MOV %OF,A 
5060 1304 TRAP-17 
5061 13C5 TRAP-9 
S062 13C6 TRAP-21 
5063 1307 MOV %08,P21 
$066 13CA MOV R1D,A 
5068 13CC AND 47F.A ;1S THE AUTHORIZATION CODE *A’? (AUTHORIZED) 
5070 13CE JZ/JEQ Fil ;YES, JUMP TO 1301 
5072 13D0 MOV R1D,A ;NO MOVE ITS VALUE TO A REGISTER 
S074 13D2 JPZ/JGE 03 ;TO BE MANIPULATED BY CCD7 
S076 13D4 BR @CCD7 360TO SUBCD7 
S079 13D7 CLR R28 
$081 13D9 AND %40,R20 
5084 13DC CALL @D7DO ;650SUB 5UB17D0 
5087 13DF CALL @Dé6BA ;}6O0SUB SUBL4BA 
5090 13E2 MOV R26,A 
5092 13E4 BTJO 408,A,05 
S098 137 CALL @D6A7 ;GOSUB SUB146A7 
S098 135A IN/ILT 06 
S100 13&C MOV 4O03,P21 
5103 13EF BR @D4a9s 
5106 13F2 MOV 444,P42 
5109 13F5 TRAP-9 
53110 13F6 TRAP-21 
Stil 13F7 MOV 408,P21 
5114 13FA CLR R20 
5116 13FC CLR R27 
$118 13FE BTJZ %10,R26,0B 
5122 1402 MOVD %DECB,R35 
5126 1406 MOV 444,B 
5128 1408 CALL @C3oD ;G08UB SUBSOD 
5131 i408 IMP 22 
Si33 1400 BTJZ %20,R26,08 
5137 1411 MOVD 4DE17,R35 
5141 1415 MOV %78,B 
S143 1417 amp 13 
Si45 1419 CALL @D46B1 ;G08UB SUB146B1 
5148 14iC BT3Z %40,R26, 2D 
$152 1420 MOVD %£240,R35 
5156 1424 MOV %50,B 
5158 1426 MOY R27,A 
51469 1428 IN/ILT O2 
5162 142A MOV 478,B 
5164 142C CALL @C3iA ;G0SUB SUB31Aa 
5167 142F MOV R24,B 
5169 1431 ADD %02,B 
Si71 1433 TRAP-10 
5172 1434 LDA @6100(B> 
S175 1437 BTJZ %RO1,A,0A 
5178 143A MOVD %E26D,R35 
S182 143E MOV %05,P10 
5185 1441 CALL @C337 ;G0SUB SUB337 
5188 1444 MOV R27,A 
5190 1446 JPZ/JGE 1£ 
5192 1448 CALL @De8F9 }GO0SUB SUBLSF9 
5195S 1448 OMP 19 
5197 144D MOV R24,B 
5199 144F TRAP-10 
5200 1450 LDA #6113(B) 
5203 1453 BTJZ %R10,A,09 
5206 1456 MOV %64,B 
5208 1458 MOVD %E288,R35 
S212 14S5C CALL @C31A ;GOSUB SUB31A 
5215 145F MOV %78,B 
S217 1461 MOV R24,A 
S219 1463 CALL @DS09 ;G0SUB SUB1409 
5222 1466 TRAF-9 
223 1467 CALL @DSED ;S08UB SUBI5ED 
S226 146A MOV %492,B 
$228 146C LDA @622D 
S231 146F RL A 
S232 1470 RL A 
S233 1471 RL A 
S234 1472 RLC B 
5235 1473 ADD %02,8 
S237 1475 TRAP-10 
S238 1476 LDA @6100(B) 
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5241 
5244 
5247 
5249 
5252 
5255 
$258 
3240 
S263 
S246 
5269 
5272 
5274 
5277 
$281 

$284 
$285 
5299 
5290 
S251 

5294 
5297 
$298 
$300 
$303 
3304 
S308 
S306 
S307 
S309 
5310 
S313 
S316 
$315 
$321 

5324 
5325 
S327 
5329 
5332 
S334 
5336 
$338 
S340 
S342 
5344 
5347 
S349 
S352 
5354 
S357 
5339 
S361 

S363 
S365 
5368 
5372 
5375 
$377 
5378 
5381 

5383 
S386 
$387 
$390 
$393 
S396 
5398 
$399 
$402 
5403 
S406 
5410 
S413 
5414 
5417 
5420 
5422 
$425 
3427 
$428 
5431 

S433 
S436 
$438 
3441 

5444 
B4a6 
$450 
5453 
5456 
s4ase 
5459 
5462 
5464 
$467 
S471 

S474 
S475 
S479 
5461 

5454 
$488 
S491 

5492 
5495 
5498 
5500 
5503 
3504 
$507 
5509 
$513 
$516 
5520 
5523 
S524 
5527 
5530 
S531 
S534 
$538 
5539 
$540 
$542 
s544 
5547 
5550 
5533 
S555 
5536 


1479 
147C 
147F 
1481 
1484 
1487 
146A 
146C 
148F 
1492 
1495 
1498 
149A 
149D 
14A1 
14A4 
14a5 
14A9 
14AA 


14AB 


L4AE 
14B1 

14B2 
14B4 
1487 
1458 
14B9 
14BA 
14BB 
14BD 
14BE 
14C1 

14C4 
1407 
14C9 
14CC 
14CD 

14CF 
14D1 

1404 
1406 

14D8 
14DA 
14DC 
14DE 
14E0 
14E3 
14E5 
14E8 
14EA 
14ED 
14EF 
14F1 

14FS 
14F5 
14F8 
14FC 
14FF 
1501 

1502 
1505 
1507 
150A 
1S50B 
1S50E 
1511 
1514 
1516 
1517 
151A 
1518 
ISIE 
1522 
1525 
1526 
1529 
1S52Cc 
152E 
1531 

1533 
1534 
1537 
1539 
153C 
153E 
1541 

1544 
1346 
154a 
134D 
15590 
1552 
1553 
1556 
1558 
i35B8 
1S5F 
1562 
1563 
1567 
1569 
156C 
1570 
1573 
1574 
1577 
1S7A 
157C 
1S7F 
1580 
1585 
1565 
1ss9 
158ec 
1590 
1593 
1594 
1597 
1598 
1598 
1S9E 
15A2 
ISAS 
1SA4 
15A6 
15a8 
1S5AB 
15AE 
15B1 
1585 
1584 


SUB148A 


SUBLSAE 


BTJZ %RO1,A,08 
CALL @FC22 
MOV %A0,B 
CALL @FCEE 
DIJNZ R42,DF 
CMP %04,R1D 
JZ/JEQ OS 

BR @CCD7 

OR %04,R1F 
BR @CCED 

MOV %40,P20 
MOV %2E,A 
CALL @cs3aD 
MOVD 4E2F4,R35 
CALL @C318 
TRAP-9 

MOVD %Z1ASE,R42 
TRAP-19 
TRAP-9 

CALL @D7E1 
CALL @D5ED 
TRAP-F 

MOV %02,8B 
LDA @622D 

RL A 

RL A 

RL A 

RLC B 

ADD %02,B 
TRAP-10 " 
LDA @4100(B) 
BTJZ %RO1,A,C8 
CALL @FC22 
MOV %78,B 
CALL @FCEE 
TRAP-9 

DECD R42 
JC/JS O38 

BR @CEtS 

MOV R19,A 
INZ/JNE D2 
MOV R28,A 
JZ/JEQ 15 

MOV R1A,A 
JNZ/JNE 08 
CALL @D849 
CLR R26 

BR @D3C1 

MOV %OC,A 
CMPA @6255 
JNZ/JNE Bé 
IMP F4 

MOV R1A,A 
JNZ/JNE BO 
MOV %01,P28 
BTJZ %08,R26,30 
CALL @D6é31 
MOV R24,B 
TRAP-10 

LDA @6111(B) 
MOV A,RS3D 
LDA @6112(B) 
SETC 

DSB R3D,RSB 
SBB ROO,RSA 
SBB %00,R3E 
Jc/Is 14 
TRAP-9 

MOV %2D,P42 
TRAP-21 

MOV %03,P21 
MOVD %DEBC,R35S 
CALL @C318 
TRAP-9 

DINZ R42,FC 
BR @D487 

MOV R26,A 
CALL @Dé6A7 
IN/ILT 13 

MOV A,B 

CALL 80407 
MOV R26,A 
CALL @D6A7 
IJN/ILT OS 

BR @CCD7 

CALL @D4BA 
IMP £6 

BTIO %08,R26,03 
BR @DSC1 

LDA @6240 
IN/ILT 48 
TRAP-21 

MOV %04,P21 
MOV %2E,A 
CALL @C38D 
MOVD %E2F4,R35 
CALL @cs318 
TRAP-9 

MOVD %E1AA,R3S 
MOV %8C,B 
CALL @C31A 
MOVD %£19B,R3S 
CALL @C318 
TRAP-? 

CALL @De9B 
CALL @D69A 
JZ/JEQ 1E 
MOV %21,P42 
TRAP-21 

MOV %04,P21 
MOV “%8C,B 
MOVD %EBAS,R3S 
CALL @C31A 
MOVD %£189,R35 
CALL @C318 
TRAP-9 

DINZ R42,FC 
BR @D552 
TRAP-21 

MOV %09,P21 
MOVD %6444,R46 
TRAP-18 
TRAP-9 

MOV R24,A 
MOV %00,B 
CALL @D4609 
BR @D4Aa5 
CALL @D431 
MOV R24,B 
TRAP-10 

LDA @6111(B) 


3;50SUB SUBSC22 
360SUB SUBSCEE 


31S THE AUTHORIZATION AN ’A’?? 
7YES JUMP OVER THE BRANCH 


360TO SUBCD7 
360TO SUBCED 


3;60S8SUB SUBSS8D 
;GOSUB SUB318 
30DD VALUE TO LOAD 


;GOSUB SUB17E1 
3GO0SUB SUBISED 


3;GOSUB SUBSC22 
3;GSOSUB SUBSCEE 


;GOTO SUBEIS 


;GOSUB SUB1869 


sDIRECT COMPARISON 


;G608UB SUB1631 


;S05UB SUB318 


;608UB SUB16A7 


;60SUB 8UB407 


3GOSUB SUB15A7 


360TO SUBCD7 
7GOSUB SUB16BA 


;60SUB SUBSSD 


3S08UB SUBS18 


1650SUB SUBSI1A 
;SOSUB SUB318 


SUB189B 
SUB1469A 


;GOSUB 
;60SUB 


SUBSIA 
SuUB3S18 


;GOSUB 
;S6O0SUB 


;GOSUB SUB14609 


7;GOS8UB SUB146351 


(GET SERIAL NUMBER DATA) 


(GET weit la ele DATA) 


nas 


‘a eicfave eorue, 
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° har @ or i 
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15B7 
1589 
15BC 
15BD 
15c0 
15cs3 
15C4 
1507 
15CA 
15cc 
15cE 
13D1 
15D4 
1507 
1509 
15DC 
15DD 
1SE1 

15E2 
1SEs 
1S5E4 
iSES 
1SE8s 
1S5EB 
1SED 
1SEF 
1SF2 
1SFS 
15FS 
1SFA 
1S5FD 
1601 

1602 
1603 
1604 
1605 
1608 
1609 

1608 
160B 
160D 
160E 
1612 
1615 
1616 
1617 

1619 
1618 
161D 
1620 
1622 
1626 
1628 
162A 
162D 
162F 
1631 

1633 
1635 
1636 
1639 
163B 
163E 
14640 
1645 
1644 
1647 

1648 
1548 
164E 
164F 
1652 
1653 
1656 
1658 
165A 
165C 
16S5E 
1661 

1665 
1665 
1668 
166A 
166D 
1670 
1673 
1674 
1675 
1676 
1679 
167B 
167D 
167F 
1681 
1684 
1686 
1688 
1689 
168B 
168E 
1690 
16973 
1695 
1676 
1698 
1699 
159A 
169C 
169F 
16A2 
15A4 
16A6 
16A7 
16A9 
16AA 
16AD 
16AE 
LOAF 
16B0 
16B1 

16685 
1684 
16B7 
16B9 
16BA 
16BC 
16BE 
16C1 

16C2 
16C4 
16C7 


SUB15C7 
SUBI1SCC 


SUBISE8 
SUB1LSED 


SUB1609 


SUB1617 


SUB162D 
SUB1631 


SUB1674 


SUB1689 


SUB1S9A 


SUB1LSA7 


SUB16B1 


SUB16BA 


MOV A,RSD 

LDA @6112(B? 

SETC 

DSB RID,RSB 

SBB ROO,RSA 

SBB %00,R3E 

RETS p62 oe------------- Kee 
MOV XFF,PSD 

IMP 02 

CLR RSD 

LDA @622E }AUTH CODE STORED HEREREREREKESSRKR EKER TE KEE 
BTJO %418,A,09 

LDA @622D 

XOR R2S,A 

BTJO %60,A,01 

RETS p60 oo ------------- KCK 
BTJZ “%01,R3D,02 

POP A 

POP A 

POP A 

POP A 

BR @CCED ;G0TO SUBCED 

MOV 4FF,PSD 

IMP 02 

CLR RSD 

LDA 8422E 7AUTH CODE STORED HERESEESEREEKERRTEREREET EE 
BTJO %18,A,08 

LDA @622D 

XOR R25,A 

BTIJO %60,A,0B 

BTJZ %FF,RSD,02 

POP A 

POP A 

POP A 

POP A 

BR @CCED 3G0TO SUBCED 

RETS 3 <---------------- <<< 
PUSH B 

MOV A,B 

ADD %02,B 

TRAP-10 

MOVD %6105(B8),R3S 

POP B 

CALL @CSoD ;GO0SUB SUBSOD 

RETS } (~--------------- <<< 
AND %07,A 

MOV A,R10 

ADD ROO,A 

ADD ROO,R1O 

XCHB R10 

MOVD %61CB(B),R35 

MOV %01,B 

XCHB R10 

BR @C31D ;G60TO SUB31D 

MOV ROE,B 

IMP O2 


MOV R25,8B VEETLUSER TO NU BE RATA ee ee su Mersin a saen eae eeue 


CLR R3B 
TRAP-10 

LDA @610F (B> 
MOV A,RSA 
LDA @6110¢B? 
MOV A,RSE 
LDA @423A 
MOY A,B 

LDA @623B 
SETC 

DSB RO1,R3B 
SBB ROO,RSA 
PUSH 8ST 

LDA @623C 
POF BT 

SBB ROO.RSE 
JO/IS 06 
CLR R3B 

CLR RSA 

CLR RSE 

CMP %427,R3E 
JNC/JL 10 
INZ/INE OS 
CMP %10,R3A 
JNC/JL 09 
MOV %27,P3E 
MOV Z%OF,P3A 
MOV %99,P3B 
RETS j <---------------- << 
CLR A 

CLR B 

MOV %10,P10 
RLC RSA 

RLC RSE 

DAC ROO,A 
DAC RO1,B 
DIJNZ R10,F5 
MOV A,RSA 
MOV B,RSE 


CALL @FOBS ;GO8UB SuUBsSOBS 

MOV R3A,A 

CALL @FOBA ;608UB SUBSOBA 

MOV %2D,A 

TRAP-13 

MOV R3B,A 

TRAP-15 

RETS } (eo ----------- <<< 
MOV %08,B 

LDA @6254(B) 

CMPA @625F (B) 

JNZ/JNE O2 

DINZ B,Fé 

RETS j (2-7 ------------- <<< 
AND %07,A 

DEC A 

CMPA @6253 ;DIRECT COMPARISON 
PUSH 8T 

INC A 

POP ST 

RETS f Otome cee eee - £e< 
MOV R24,B 

TRAP-10 

LDA @6115(B8) 

MOV A,R27 

RETS p< ---------------- <<< 
CLR R26 

MOV R25,A 

MOV %01,P23 

RL A 

RLC R23 

MOV %02,P24 

RL A 
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Sus17D0 


SUBIL7E1 


RL A 
RLC R24 


LDA @622E AUTH CODE STORED HERE SESEEKSEEEEERERES ESE EEES 


AND %16,A 

JZ/JEQ OC 

MOV 480,P26 

LDA @622F 

AND %07,A 

OR ROO,R26 

RETS OO a tae aaa qe<< 


LDA @6112(8B) 
MOV A,RS3B 

LDA @6113(B) 
MOV A,RSA 

MOV R23,B 

SUB %02,8 
TRAP~10 

MOV RSB,A 

CMPA 26100(B) 
JNZ/JNE 25 

MOV RSA,A 

CMPA @6101 (B? 
JNZ/JNE 1E 

MOV R24,B 

ADD 402,8 
TRAP-10 

LDA @6100(B) 
4OR R2S5,A 2 
BTJO %469,A,11 
MOV R24,8B 
TRAP-19 

MOV RSB,A 

CMPA #6190(B) 
JINZ/INE O07 

MOV RSA,A 

CMPA @6101(B) 
JZ/JEQ O04 

MOV 410,P26 
RETS a a ree = ae £K¢ 
LDA @6314(B) 
XOR R25,A 

BTJO “4£60,A,F4 
LDA 86248 

CMP ROO,R16 
JNZ/JNE 20 

LDA 861907(B) 
CMPA @624C ;DIRECT COMPARISON 
JNZ/JINE 18 

LDA B510A(B? 
CMPA @624D sDIRECT COMPARISON 
JNZ/JNE 10 

LDA 9610B(B) 
CMPA @624E } DIRECT COMPARISON 
JNZ/INE 068 

LDA #610C(B) 
CMPA @624F +; DIRECT COMPARISON 
JZ/JEQ 74 

LDA 86251 

XOR R25,A 

BTJO 460,A,05 
LDA 86252 
JNZ/INE 57 

LDA @6113(B) 
BTJZ 4R20,A,24 
LDA @6119(B) 
CMPA @6142(B) 
JNZ/INE Bl 

LDA @6114(B>) 
MOV A,R1O 

LDA @5141(B>) 
XOR R10,A 

BTJO %EO,A,A4S 
LDA @6143(B) 
INC A 

JNZ/INE FE 

LDA @6144(B>) 
INC A 

JZ/JEQ OS 

MOV %40,P26 

MOV B,RSB 

LDA @6113(B) 
CLR RSA 

MOV R23,8 
TRAP-10 

MOV 407,P10 

LDA @6100(B) 
MOV A,RSA 

INC B 

XCHB RSB 

LDA @6102(B) 
INC B 

XCHB RSB 

BTJO R3A,A,1F 
DINZ R10,EC 

SUB %407,B 

LDA @62235 

BTJZ 4R20,A,08 
MOV R24,B 
TRAP-10 

LDA @6113(B> 
JN/ILT 04 

MOV %20,P26 
RETS TE te ae e<< 
BTJZ 440,R26,01 
RETS a ae a ae Sao eo £6 
MOV %08,P26 

MOV R24,B 
TRAP-10 

LDA 86113(B) 
AND %07,A 

OR ROO,R26 

RETS Re nee ae <<< 
MOV ROF,B 
TRAP-10 

LDA @6114(B) 
MOV A,B 

ADD 420,A 

AND 47F,A 

AND 459,B 

OR 6,A 

MOV A,R25 

RETS p£SSRs SH este sss <<< 
MOV R24,A 

CLR B 

CALL @D609 3G0SUBL4609 
MOV %28,PI3D 
BTJO “4F8,R26,04 
BTJO 407,R26,3C 
MOVD 4DES3.R35 
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6134 
6137 
6139 
6142 
6145 
6148 
6150 
61353 
6155 
6159 
6162 
6165 
6167 
6168 
6171 
6173 
6176 
6178 
6180 
6183 


6185: 


6188 
6190 
$192 
6193 
S196 
6199 
6201 

6204 
6205 
6207 
6209 
$212 
6214 
6218 
6221 

6224 
6226 
6229 
6231 

6235 
6237 

6241 

6243 
6245 
6248 
6249 
6252 
6254 
6257 

6259 
6262 

6265 
6257 

6268 
6272 
6275 
6277 
6278 
6280 
6283 
6254 
6287 
6288 
6290 
6293 
6295 
62998 
6299 
6302 
6304 
6396 
6308 
6311 

6714 
6316 
6318 
6321 

6323 
6325 
6326 
6329 
6333 
6334 
6338 
6341 

5343 
6346 
6349 
6351 

6354 
6356 
6360 
6363 
6366 
6369 
6371 

6375 
6377 
6379 
6382 
6384 
6386 
6388 
6390 
6593 
6395 
6399 
6402 
6405 
6408 
6410 
6412 
6415 
6417 
6419 

6422 
64235 
6426 
6428 
6431 

6432 
6435 
6439 
6442 
6443 
6446 
6449 
6452 
6455 
6456 


17F6 
LZP? 
17FB 
17FE 
1801 
1804 
1606 
1809 
180B 
190F 
1812 
i815 
1817 
1618 
1618 
181D 
1820 
1822 
1824 
1827 
1829 
182C 
182E 
1830 
1831 
1834 
1837 
1839 
183Cc 
{83D 
153F 
1541 
1844 
1846 
184A 
184D 
1850 
1852 
1855 
1557 
185B 
185D 
1861 
1565 
1865 
1868 
1869 
186C 
i86E 
1871 
1673 
1876 
1879 
1878 
187C 
1880 
1883 
1885 
1886 
i8ss 
188B 
188sc 
188F 
1890 
1692 
1895 
1897 
189A 
1898 
199E 
18A0 
18A2 
1BA4 
1BA7 
1BAA 
18AC 
16AE 
1881 
18B3 
18BS 
18B6 
1859 
18BD 
iSBE 
18C2 
18C5S 
18C7 
18CA 
18CD 
18CF 
18D2 
18D4 
1808 
1808 
18DE 
18SEl 
18E3S 
18E&7 
1BE9 
18£B 
18SEE 
18F0 
16F2 
18F4 
18F6 
1BF9 
18FB 
18FF 
1902 
1905S 
1908 
1908 
190C 
170F 
1911 
19135 
1916 
it tr 
1914 
191C 
191F 
1920 
1923 
1927 
192A 
192B 
192E 
1931 
1934 
1937 
1938 


5UB1849 


SUB189B 
SUB1BA0 


SUBLSF9 


1917. 


MOV %03,P10 


MOV %44,B 

CALL @C31D ;GOSUB SUB31D 

CALL @D631 ;GOSUB SUB1631 (GET SERIAL NUMBER DATA) 
CALL @D474 }GOSUB SUB1674 

MOV %70,B 

CALL @D4689 ;608UB SUB1689 

MOV %S50,B 


MOVD 4DES5S,R35 

MOV %03,P190 

CALL @C31D ;GOSUB SUB31D 
MOV R24,B 

TRAP-10 

LDA @6111(B) 

MOV A,RS3B 

LDA #6112(B? 

MOV A,RSA 

CLR RSE 

CALL @0674 7GO0SUB SUB1674 
MOV %5C,B 

CALL @D689 ;SOSUB 8UB1689 
CLR RSD 

MOV R24,B 

TRAP-10 

LDA @6113(B> 

AND 4FS,R26 

AND %07,A 

OR ROO,R26 

TSTA/CLRC 

JZ/JEQ 1E - 

MOV 4%4B,B 

CALL D617 sGOSUB SU81517 
MOY %3C,B 

MOVD “4DE44,.R35 

MOV %O3,P10 

CALL @C31D 7508UB SUBS1iD 
MOY R26,A 

CALL @D6A7 ;GOSUB SUBL4A7 
JN/ILT 06 

MOVD %*E2BS,R55 

UMP O@ 

MOVD 4E8A5,RS5 

MOY %428,B 

ADD RID,8B 

CALL @C31A 7608UB SUB31A 
RETS ie ae ar ee an ted 
LDA @622D 

XOR R25,A 

BTJIO %50,A,1F 

MOV R16.A 

STA @624B 

MOY 404,P27 

MOV R24,B 

TRAP-10 

MOVD %4624F,R35 

LDA @6109C(B) 

STA &RSS 

DEC B 

DECD R3S 

DJINZ R27,F5 

CLR A 

STA 262590 

RETS i aa i a aa il 446 
MOV R25,A 

STA @6251 

MOV R16,A 

STA 862352 

RETS j<---------------- ocx 
MOV %FF,P2C 

IMP O2 

CLR R2C 

MOY 4AB,A 

STA @627A 

MOV 4%08,P19 

CLR RIA 

MOV %08,8 

CALL @F990 ;GO0SUB SUB3990 
POP R490 

POP RSF 

CLR A 

STA @4625F 

MOVDE RIAs Rae 2ODO VALUE, TO LOAD 1 ee ett Sane ate 
TRAP-9 

BTJZ 491,R2C,05 

CALL @DSED ;GSO0SUB SUB1SED 
IMP OS 

CALL @DSCC ;60SUB SUB15CC 
CALL @D7E1 3G605UB SUB17E1 
MOV R26,A 

CALL @D&A7 36508UB 8UB16A7 
JN/JLT OA 

BTJIO 401,R2C,05 

BR @CCD7 360TO SUBCD7 
BR @D3C1 

CALL @DSAE 3;GOSUB SUB1SAE 
JC/JIS 08 

BYJO %01,R2C,F4 

JMP EF 

MOV R1A,A 

CMPA @4625F s;DIRECT COMPARISON 
IJNZ/INE Cé 

DECD R42 

JC/J8 C9 

CLR R19 

BR @CEiS ;G0TO SUBE1S 
MOV %78,8 

MOVD %E24F,R3S 

CALL 8C30D 1GOSUB SUBSOD 
MOV R27,R3A 

AND 41F,RSA 

INC RSA 

CLR RSE 

CALL @D&74 s;SOSUB SUB1674 
MOV R3A,A 
MOV %98,8B 
CALL @FOBS ;G60SUB SUBSOBS 
RETS 3< 
LDA @679E ;REFERENCED IN TABLES 4/5 
IJNZ/JINE 15 

MOV %21,P42 
TRAP-21 

MOV “%O01,P21 
MOVD %E213,R35 
CALL @C318 3GOSUB SUB313S 
TRAP-9 

DINZ R42,FC 

BR @CSDS 7GOTO SUBSDS 
LDA 867983 

STA 8679C 

CLR A 

STA @679D 
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6459 
6460 
6463 
6467 
6470 
6474 
6477 
6478 
6480 
6482 
6485 
6486 
6488 
6490 
6493 
6494 
6496 
6498 
6501 

6502 
6504 
6506 
6509 
6510 
6511 

65153 
6516 
6517 
6521 

6522 
6523 
6524 
6528 
6530 
63532 
$6535 
63537 
63539 

6541 

6545 

6546 
6549 
6351 

6553 
6555 
6557 
6559 
6562 
6565 
6567 
6571 

6574 
63577 
6573 
63581 

65835 
65984 
6585 
65686 
$6590 
6593 
6595 
6576 
6s99 
6601 
6605 
6696 
6608 
6612 
6614 
6617 
6618 
6619 
6622 
6625 
6627 
6629 
6633 
6636 
6639 
664} 
6642 
6644 
6646 
6649 
6651 

6652 
6654 
6655 
6657 
6639 
6652 
6663 
6666 
6668 
$469 
6672 
6674 
6675 
6477 
$6681 

6663 
6685 
6688 
6691 

66973 
6697 
6799 
6702 
67905 
6706 
6707 
6709 
6711 

6713 
6715 
6716 
6718 
6719 
6721 

6722 
6725 
6727 
6729 
6731 

6732 
6735 
6737 
6738 
6741 

6743 


193B 
193C 
L19SF 
1943 
1946 
194A 
194D 
i94E 
1950 
1382 
1955 
1956 
1958 
193A 
1950 
19SE 
1960 
1962 
1965S 
19766 
1968 
196A 
196D 
196E 
196F 
1971 
1974 
1975 
1979 
197A 
197B 
Lz7E 
1980 
19782 
1984 
1987 
1989 
1978B 
198D 
19SF 
LaF 2 
1995 
1997 
Wh oo dg 
1998 
199D 
199F 
19A2 
1945 
1987 
19AB 
19AE 
1981 
19B2 
1985 
19B7 
1988 
19B9 
198C 
19BE 
19C1 
19C3 
19C4 
19C7 
19C9 
19C8 
19CE 
19D0 
1904 
197D6 
1909 
19DA 
19DB 
19DE 
19E1 
19ES 
19ES 
19E9 
19EC 
L9EF 
19F1 
19F2 
19F4 
19F6 
19F9 
19F8 
19FC 
19FE 
19FF 
1A01 
1403 
1894 
1A07 
1A90A 
1a0c 
1AOD 
1A10 
1A12 
1A13 
1415 
1Aalg9? 
1A1B 
1A1D 
1A29 
1A2Z3 
1A25 
1829 
1A42C 
1A2E 
1A31 
1A32 
1AS3 
1A3S 
1A37 
1A3S9 
LASB 
1ASC 
1ASE 
1ASF 
1A41 
1A42 
1A4S 
1A47 
1A4amz 
1A4B 
1A4Cc 
1A4F 
1AS1 
1AS2 
1aASsS 
1AS7 


SUBI9E1 


TRAP~-23 


SUBLASF 


TRAP-21 
MOV %OF,P21 


MOVD %E468,R46 


CALL @C3D4 


MOVD *%E16E,R35 


CALL @C3198 
TRAP-9 

MOV %04,A 

MOV %28,.B 

CALL @D9E1 
TRAP-9 

MOV %03,A 

MOV %3C,B 

CALL @D5E1 
TRAP-9 

MOV %02,A 

MOV %50,B 

CALL @D9E1 
TRAP-9 

MOV %01,A 

MOV %64,8B 

CALL @D9E1 
TRAP-9 

CLR A 

MOV %78,B 

CALL @DSE1 
TRAP-9 


MOVD “%1LASE,R42 


TRAP-19 
TRAP-9 

LDA @679D : 
INZ/INE 97 
DECD R42 
JC/IS O3 
BR @CEiS 
MOV R19.A 
JNZ/INE EF 
MOV RIA,A 
INZ/JNE O3 
BR @CSD3 
LDA @6255 
CMP 4OB,A 
SZ/JEQ 25 
CMP %08,a8 
JZ/JEQ O2 
IMP DS 

LDA @679C 
CMPA 96798 
INZ/INE 10 


MOVD %£204,R35 


MOV %21,P42 
CALL @cs318 
TRAP-9 

DJNZ R42,FC 
IMP 8F 

INC A 
TRAP-23 

STA @679C 
IMP BF 

LDA @479C 
SUB %05,A 
TRAP-25 
CMPA @679B 
JZ/3JEQ 07 
MPY %07,A 
LDA 9679F (BD 
INZ/INE 06 


~MOVD “4EL1FS.RIS 


JMP DS 
LDA 34679C 
DEC A 
TRAP-23 
STA @679C 
BR #2D94D 
MOV B,RSE 
MOV A,R23 


MOVD %EBAS,RSS 


CALL @C31A 
LDA @679C 
SUB R23,A 
TRAP-23 

MPY %07,A 
MOV B,R23 
LDA @679F (B) 
JNZ/JNE 01 
RETS 

MOV RSE,B 
TRAP-16 

MOV R23,B 
ADD %06,8B 
MOV %06,P10 
CLR A 

CMPA @679F (B) 
INZ/INE 97 
DEC B 

DINZ R1LO.F7 
MOV %2E,A 
TRAP-13 

MOV R23,B 


;G08UB SUBS3D4 
;G0SUB 8UB318 


;GOSUB SUBi19E1 


3;GOSUB SU819E1 


7GOSUB SUB19E1 


;GOSUB SUB19E1 


;GOSUB SUB19E1 


ODO VALUE FO LOAD: 8 tt tire ie ee i ea ais 


;GOTO SUBE1S 


7G60TO SuBSDS 


3; DIRECT COMPARISON 


3;GOSUB SuBs18 


sDIRECT COMPARISON 


+SOS8UB SUBSIA 


MOVD 467A0(B), RIS 


MOV RSE,B 
ADD 493.8 
MOV R10,R3E 
CALL ®@CABC 
MOV R23,8B 


}505UB suBAsC 


MOVD 4679F (Bd, RSS 


MOV R3E,R10 
INC R19 
CALL @CABS 
TRAP-15 
RETS 

IN/ILT 07 
CMP %OA,A 
INC/IL O02 
SUB %0A,A 
RETS 

ADD %0A,A 
RETS 

MOV ROF,B 
TRAP-10 

LDA @611B(B) 
MOV A,RLO 
CMP %30,A 
INC/JL O1 
RETS 

LDA #4611A(B) 
IJNZ/JNE O1 
RETS 

CALL @DA7B 
MOV R19,A 
RR A 


;GOSUB SUBABS 


a a oc <<< 
B 6 totter nn <<< 
9 a ae eae oe omer noe on Soe a <<< 
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: 
;GOSUB SUB1A7B 
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6744 
6743 
6746 
6748 
6750 
6751 
6753 
67538 
6758 
6760 
6762 
6763 
6767 
6770 
8772 
6778 
6778 
S779 
6781 
6783 
6785 
6787 
6790 
6792 
6794 
O79 
6799 
6800 
6801 
6804 
6806 
6608 
6611 
6812 
6814 
6817 
6820 
6821 
6824 
6825 
6828 
6829 
6830 
6833 
6836 
6838 
6839 
6840 
6843 
6846 
6848 
6850 
6853 
6656 
6359 
6852 
6864 
6868 
6871 
6874 
6876 
6877 
6880 
68582 
6884 
68587 
6889 
oBFi 
6893 
6895 
6876 
6898 
6901 
6904 
6906 
6908 
69709 
6712 
69135 
6716 
6918 
6921 
6922 
6728 
5727 
6732 
6733 
67356 
8739 
69742 
6745 
6748 
S949 
6952 
6954 
6957 
6958 
e761 
69764 
6966 
6968 
6989 
6971 
6974 
6975 
6978 
6980 
6983 
6784 
6988 
6991 
6992 
5996 
6997 
7000 
7003 
7008 
79007 
7009 
7012 
7014 
7916 
7018 
7920 
7923 
7926 
7028 
7O30 
7O32 
7034 
7036 


SUB1A7B 


SUBILAAS 


1BO1 


RRA 
RR A 

AND %OF,A 
ADD ROO,B 
INC B 

XCHB R10 
AND %07,B 
LDA @C164(8) 
MOV R10,B 
MOV A,R1O 
LDA @679F (B> 
OR R10,A8 
STA @679F (B) 
MOV %FF,A 
STA @679E 
STA @679D 
RETS 

MOV A,R34 
MOV “499.8 
MPY %07,A 
MOV R34,A 
CMPA @679F (B? 
JZ/JEQ 20 
SUB %07,B 
JC/3S F7 
LDA @479B 
INC A 
TRAP-23 

STA 94798 
MPY 497,Aa - 
MOV R34,Aa 
STA @679F (B) 
CLR A 

ADD %06,B 
MOV %06,P34 
STA @679F (B) 
DEC B 

DINZ R34,F9 
RETS 

LDA @6796 
INC A 
TRAP-22 

STA 96796 
CMPA @6797 
JNZ/JNE 9S 
INC A 
TRAP-22 

STA 96797 
LDA @&79A 
INZ/JNE OB 
MOV “FF,A 
STA @4679A 
LDA 86796 
BTA 96797 
LDA 86796 
MPY %24,A 
MOVD %45C1,R35 
ADD RO1,R35 
ADC ROO,R34 
MOV ROF,B 
TRAP-10 

LDA @6112(B) 
STA R35 
DECD RSS 
LDA @6111(B) 
STA &RSS 
DECD R35 
MOV ROF,B 
ADD %02,8 
TRAP-10 

ADD %21,8 
MOV %22,P10 
LDA @6101(B) 
STA «R35 
DECD R35 
DEC B 

DINZ R19,F5 
RETS 

LDA B4679A 
INZ/INE 1S 
MOV %21,P42 
TRAP-Z1 

MOV %401,P21 
MOVD 4E1E6,R35 
CALL @cC318 
TRAP-? 

DINZ R42,FC 
BR @CSDs 
LDA 96796 
STA @6798 
STA 86799 
TRAP-21 

MOV %07,P21 
MOV %2E,A 
CALL @C3ED 
TRAP-? 

LDA #6798 
CMPA @6797 
JZ/JEQ OF 
SUB %01,A 
TRAP-22 

MOV %00,B 
CALL @DBC4 
TRAP-9 

LDA #6798 
MOV %S0,B 
CALL @DBC4 
TRAP-9 

MOVD %“E16E,R35 
CALL @C318 
TRAP-19 
MOVD Z1ASE,R42 
TRAP-9 

LDA 96796 
CMPA @6799 
INZ/JNE AS 
DECD R42 
JC/IS 03 

BR @CE15 
MOV RI9,A 
JNZ/JNE EC 
MOV R1A,A 
INZ/JNE OS 
BR @CSD3 
LDA @6255 
CMP %OB,A 
IZ/JEQ 26 
CMP %OA,A 
JZ/JEQ 02 
JMP cc 

LDA @6798 


;LOGKUP TABLEL 


;DOIRECT COMPARISON 


p62 noon <== =--- £e< 
;REFERENCED IN TABLES 4/5 


;G08SUB SuB318 


GOTO SuBsDsS 


;G0SUB SUB38D 
sDIRECT COMPARISON 
;SOSUB SUB1BC4 


#GOSUB SUB1BC4 


7GOSUB SUB318 
30DD VALUE TO LOAD 


3; DIRECT COMPARISON 


;G0TO SURE1S 


360TO SUBSDS 


vt Gs MRT YT De Say COR iC ar ek Seer Tt Se Ta i} 


er aoe on BY 
Bek et 
‘a ' 
' 
é 
‘ 
5 j 
a YL aoe? hte 
7 = a’ wh Eeh TAT eS 
2 E ‘bot oa 
2 ACR «3s é ° 
: . De en oy ie® 
i 
" 
ey ’ _ 
be ft 
1% 
é 
1 
— 
a) =4) 
x 
SP Sor em : i 
‘ ea ae FER? Wi ASO sH4,°°" #Otee WES. 
- - WI ver 
; , : ‘ htt, Ste. oh 
; 5 F n te ee 
: n E “teen 
a ' senneaiae «a a 
- WiYGuh usps 5 ot 
ae 9 ran oreo ‘a 
My veceun aod, - 
- a 
7 5 i » vy. - i mee ohare 
ae: rat ee! OR AAS EH 
j bi ae : oe has nats, 
, ; = ‘ on ~ api j 
R a nae haem sunce'! 
Fy ' 
< +n whe! * ; 
, . é ek pn 
( f ; : 
a) - cage 
We oi foe 
ef SL AER Se aia oi ala / 
oF CC ae eee 
7 - we ae t At 
¢ 
a 
a » 
v A ie Le 


SUB1BC4 


TRAP-22 


SUBICO2 


LOOPICID 


LOOPiC2B 


SuUB1CSB 


CMPA @6796 
IJNZ/JNE 10 
MOVD %E£1D7,R35 
MOV %21,P42 
CALL e@c318 
TRAP-9 

DINZ R42,FC 
IMP B4 

ADD x%02,a 
TRAP-22 

STA 96798 
IMP 8c 

LDA 26798 
CMPA @6797 
JZ/JEQ OF 
SUB %01,A 
TRAP-22 
CMPA 86797 
IZ/JEQ 06 
CALL @DCO2 
JNZ/JNE 07 
POP A 

MOVD %£1C8,R3S 
IMP DO 

LDA 8467998 
SUB %02,A 
TRAP-22 

STA @6798 
BR @D828 
MOV B,R26 ‘ 
MOV A,R27 
CALL @pco2 
INZ/JNE O1 
RETS 

CLR RSE 
CALL @D674 
MOV R26,B 
ADD %0D,B 
CALL @D4689 
SUB %1E,R46 
SBB %00,R45 
MOV R26,B 
CALL @DC3B 
ADD %04,R46 
ADC %00,R45 
MOVD R46,R35 
MOV R26,B 
ADD %14,B 
CALL @C3oD 
RETS 

IN/ILT 07 
CMP %0E,A 
INC/JL 02 
SUB %0E,A 
RETS 

ADD %0E,A 
RETS 

MPY %24,A 
MOVD %65C1,R46 
ADD RO1,R46 
ADC ROO,R45 
LDA §R46 
MOV A.RSA 
DECD R46 
LDA R46 
DECD R46 
MOV A,R3B 
GR RTA,A 
RETS 

MOV A,B 

cLR A 

MOV %08,P3B 
RL B 

DAC ROO,A 
DJNZ R3B,FA 
BR @FOAS 
PUSH B 

MOV A,B 

CLR A 

MOV %408,P3B 
RL B 

DAC ROO,A 
DINZ R3B,FA 
POP B 

BR @FOaF 
PUSH B 

LDA &R46 
MOV A,B 

RR A 

RR A 

AND %3F,A 
ADD %54,A 
STA @6285 
DECD R46 
LDA £R46 

RL 


RR A 
AND %1F,A 
STA 96287 


STA 246289 


sDIRECT COMPARISON 


3;GOSUB 8UB318 


sDIRECT COMPARISON 


; DIRECT COMPARISON 
+7GCSUB SUB1CO2 


;GOSUB SUB1CO2 


SR a a a aa a ae Ses la <<¢ 
;GOSUB 5UB1674 

3;GOSUB SUB1689 

3GOSUB SUBICBS 

7GO8UB SUBSOD 

a aoe oe lee me <<< 
a ee een me om ee <<< 
oe wn mn os oe ede 
OWS Se I <<< 


;JUMP TO TRAP-15 


sj; JUMP TO TRAP-16 
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7298 1C82 LDA £R46 


7300 1084 AND 43F,A 

7302 1C86 STA @62B8A 

7305 1C89 LDA @61FE 

7308 1c¢B8C AND %1F,A 

7310 1C8E MOV A,B 

7311 1CeaF MOVD %6288,R3B 

7315-1093 LDA ¥*R3B 

73i7 1095 ADD B,A 

7318 1096 CMP %18,A8 

7320 1C98 INC/JIL 38 

7322 1C9A SUB %18,A 

7324 109¢ STA &R3B 

7326 1C9E LDA #6286 

7329 1CAL MOV A,B 

7330 1CAZ DECD R3B 

7332 1CA4 LDA *R3B 

7334 1CAS INC A 

7335 1CA7 CMPA @DD25(B) ;COMPARE WITH TABLE13 ‘ 

7338 iCAA JNC/JIL 26 3TO 1C0D2 (THE ONLY CMPA LIKE THIS) 

7340 1CAC CMP %02,B 

7342 1CAE INZ/JINE OC 3TO 1CBC 

7344 1CBO XCHB A 

7345 1CBl LDA @6285 

7348 iCB4 BTJO %03,A,08 

7351 1CB7 XCHB A 

7352 1CBs CMP 41E,A 

7354 1CBA JNC/IL 16 3TO 1C0D2 

7356 1CBC 1CBC MOV %01,A 

7358 iCBE STA *R3B - 

7360 1CCO DECD R3B 

7362 1CC2 LDA 4%R3B 

7364 1CC4 INC A 

7365S 1Ccs CMP “40OD,A 

7367 1CC7 INZ/JNE O09 3TO icD2 

7369 1CC9 MOV %01,A 

757.15 LCCE STA ¥R3B 

7S7S5 CED DECD R3B 

73575) LCCF. LDA IR3B 

7377 1CD1 INT A 

7378 1CD2 1CD2 STA #R3B 

7380 1CD4 PoP 8 

7381 1CDS LDA @6287 

7384 1CDS CALL a@DC2B 3}650TO LOOPIC2B (AS SUBROUTINE/LOOP> 

7387 1CDB LDA @46286 

7390 iCDE MOV A.B 

7391 iCOF ADD ROO,A 

7393 1CEL ADD ROO.B 

7395 1CES MOVD *%DD2F(B},R35 ;LOADS VALUE FROM TABLE13 ODD !''!:!: 

7399 1CE7 MOV 401,P10 

7402 1CEA CALL @C337 }G08UB 5UB337 

7408 icep MOV %2E,A 

7407 iCEF TRAP-13 

7408 1CFO LDA 46288 

7411 1CFS INZ/INE 02 

7413 1CFS ADD 49C,A 

7415 1CF7 CMP “4OD,A 

7417 1CF9 JNC/JIL O2 

7417 1CFB SUB 49C,4 

742i 1CFD MOY 4,8 

7422 1CFE MOV 42E,A 

7424 1Dp00 CMP 404,B 

7426 1D02 JNC/IL 94 

7428 1D04 MOV 421,A 

7430 1D06 SUB 40A,B 

7432 1008 TRAP-13 

7433 1D09 MOV B,A 

7434 1DOA ADD %4%20,A 

7436 1D0C TRAP-13 

7437 1D0D MOV %1D,A 

7439 DOF TRAP-13 

7440 1D10 LOR @6289 

7443 iD13 CALL @DCiD 3;GOTO LOOPIC1D 

7446 1D16 CLR B 

7447 iDi7 LDA 96288 

7450 1D1A CMP %OC,A 

7452 1pic JNC/IJL 02 

7654 1D1E MOV %12,B 

7456 1020 MOV B,A 

7487 1D21 TRAP-13 

74358 1D22 MOV %OC,A 

7460 1D248 TRAP-13 

7461 1925 TABLE13 OA,20,1D,20,1F,20,1F,20 3; (49 BYTES) 

7469 1D2 20, 1F,20,1F,20,D4,90,10 

7480 1D38 D4,51,01,D4,00,14,D4,04 

7486 1D3E 94,0D4,C0,18,D4,95,D0,D4 

7494 1D46 95,C8,D4,05,046,05,51,12 

7502 1D4E DS,10,96,08,04,58,D4,31,02 

7510 1D54 TABLE14 OB, 0S,25,0B,49,12,8F,1D 

7319 1DSF FF,37,FF,9F,FF,8F,FF, BF 

7525 1D56 TABLE1S 00,00,00,90,00,00,00,900 

7534 1D6E 00,00,00,04,01,04,04,01 o-49 

7S42 1076 Q4,92,02,02,02,02,02,00 qc y PAD 

7$50 1D7E 04,04,04,04,00,00,04,04 

7558 1D86 TABLE16 F8,F8,F8,F8,F8,F8,F8,F8,F8,F8,F8.F8,F9,F8,F8,F9,F9,D01,05,C00,CA,CF,DS,F9,F9,F9,F8,°9,F8,FS,F8, FF 

7590 1DA6 TABLE17 9F,A3S,A7,AB, AF, B3,B7,BB,BF,C3,F6,F3,29,F3,F 35,34, 46, 38,03,07,09,07,01,1A,435,435,F5,F5,07,05,F5,45 

7622 1DC6 TABLE18 F2,F2,F2,F2,F2,F2,F3,F3,00,CF,CO,FS,CO,FS, FS, FS, FSsF 5,501,601, FS, FS, FS, FS, FS, F353, FS, FS, FS,F3,FS,F5¢ M38 

7654 1DE6 TABLEL? AC; 40, 68,68, D8, D8, 00,00, 40,02, 25, 98,02, 8B, 8A, BA, 8A, 8A, D7, DB, 8A, BA, BA, BA, BA, BA, BA, BA, BA, BA, 4B, 07>) 434 x 
a 

7684 1606 VALUES 36 ;CALLED FROM 3B3E Prtrotiento 

7687 1E07 VALUE FC ;CALLED FROM 3344 é Prartires 


LOOKS LIKE MOSTLY DATA FROM HERE TO PART 3 OF THE DISASSEMBLY 
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fe 
7728 
7730 
7732 
7735 
7737 
7739 
7741 
7744 
7747 
77350 
7753 
7735 
77356 
7789 
7762 
7746S 
7768 
7770 
7771 
7774 
7777 
7780 
7783 
7784 
7786 
7789 
7792 
7798 
7798 
7801 
7802 
7808 
7808 
7810 
7812 
7815 
7816 
7618 
7819 
7822 
7825 
7827 
7830 
7832 
7834 
7837 
7840 
7842 
7845 
7846 
7848 
7850 
79853 
7855 
7858 
7860 
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7865 
7867 
7870 
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7903 
7906 
7907 
7909 
7912 
7915 
7918 
7921 
7923 
7926 
7927 
7930 
7934 
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7942 
7945 
7948 
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7936 
7957 
7960 
7962 
7963 
7966 
7968 
7969 
7972 
7975 
7977 
7978 
7981 
7983 
7986 
79788 
7990 
7992 
7995 
7998 
7999 
B001 
8003 
8006 
8009 
8011 
8012 
8014 
8015 
8016 
8017 
8020 
8022 
8025 
5028 
8030 
8033 
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MOV R1IC,R10 
SBB RAE,B 
DINZ A,EB 
CALL 8BS824(B) 
XOR 459,8 
DECD RAE 
DINZ A,EB 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @B940(B) 
BTJO R21,A,01 
CMPA RBA 
TRAP-20 

CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BS25(B) 
Data or Text 
CMPA *RBA 
TRAP-20 

CALL @BAEB(B) 
CALL @BAEB(B) 
CALL #0941(B) 
Data or Text 
DAC B.A 

DJNZ A,EB 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL 80941 (B) 
Data or Text 
MOVD R11,R42 


Data or Text 
Data or Text” 
DINZ A4,EB 
MOVP B,PS1 
Data or Text 


MOV B,A 

Data or Text 
CALL @8925(8) 
INV ROS 

Data or Text 
JP/JIGT 80 

XOR 456,B8 
Data or Text 
CALL @B925(B> 
INV ROS 

Data or Text 
TRAP-20 

MOVP B,PO1 
XOR 459,8 

XOR R40, REE 
DJNZ A,EB 
CALL @BAE4(B> 
MOVP PS5,A 
BTJO %51,8,50 
SBB RAE.B 
DJINZ A,EB 
CALL 87D04(B> 
BrJO 4838,8,44 
Data or Text 
TRAP-17 

PUSH A 

XOR 404,8A 
Data or Taxt 
DJINZ A,EB 


MOVD 44054,R54 


Data or Text 
XOR ROB,RSB 
BTJO “%EB,B,AE 
DINZ A,EB 
Data or Text 
CALL #0180(B) 
POP sT 

MPY Z£00,A 
SBB R12,REB 
CALL @BAEB(B) 
Data or Text 
CALL 821900(B) 
MOVP PS1,8 
Data or Text 
TRAP-20 

CALL @8S5DB(B) 


;LOOKS BOGUS 


04,0C,85 
;LOOKS BOSUS 


03,21,67 


03,21,6B 


20,20,16 
21,14,1D 


11,94,00 


10,148,EB 
70,15,12 
51,50,3B 


70,18,12 


11,5C,61 


9C,85,aF 


30,05,88 


90,45, 6B 


99,01,5B 


41.02,5A 
— 


MOVD %4155,R80 


MPY %BO,A 


BTJO R21,A,14 


DAC %BA,A 
TRAP-20 
CALL @89DB(B) 


BTJIZP B8,P40,85 


CALL 85445(B) 


BIrJOP B,P21,01 


XORP B,PBA 
TRAP-20 

CALL @68DDB(B) 
ORP B,PO1 
MOV B,A 

Data or Text 
ORP A,P20 
DEC A 

Data or Text 
CALL @91DB(B) 
ORP B,PO1 
MOV B,A 

Data or Text 
MOVP PSS,A 
BTJO 451,B8,50 
SBB RAE,B 
XORP 8,PDB 
MOVP 8,PSD 
Data or Text 
Data or Text 
EINT 

XOR X%65,B 
XOR ROS,A 
Data or Text 
Data or Text 
SUB XEO,B 
PUSH B 


TRAP-20 

CALL @9DDB(B) 
MOVP B,PSD 
Data or Text 
Data or Text 
XORP A,PS6 
XOR R46,REE 
Data or Text 


10,1A,E0 


10,1A,EB 


10,1A,E4 


40,87,91 
51,2€,48 


99,DB,82 
50,40,CB 


Ao 


40,87,01 
S1,26,1¢ 


A1,DB,83 
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IDLE 

Data or Text 
OR R91,R51 
SBB B,A 

CALL @BAEB(B) 
CALL @95DB(B) 
ANDP A,PO1 
Data or Text 
OR R91,R51 
SBB B,A 

CALL @BAEB(B) 
CALL @7EEB(B? 
CALL @1105(B) 
ORP 4,PS2 
TRAP-23 

DAC B,A 

ADC %1B,B 
ORP X<BA,PEB 
Data or Text 
CALL @1105(B) 
ORP A,PS2 
TRAP-23 

DAC B,A 

ADC %1B,8 
XORP *%BA,PEB 
Data or Text 
CALL @1105(8B) 
ORP a,PS2 
TRAP-23 

DAC B,A 

ADC %1B8,8 


60,2E,50 


60,2E,50 


AF,7E,EB 


AF,7E,EB 


BTJZP %BA,PEB,AF 


DAC “EB, RAE 
Data or Text 
MOV “ES8,B 
DAC B,A 

ADC %18.B 


11,05,84 


MOVD %BAEB(B),RAF 


DINZ A,EB 
MOVP PSC,A 
MOV R11,8 
PUSH A 

INV B 

BND R12,RE2 
XOR RBA,A 
TRAP-20 

CALL @7EEB(B) 
MOVP B,PSO 
xOR RSS,RBA 
PUSH B 

MPY B,A 

PUSH A 

OR 454,8 

DINZ A,EB 
Data or Text 
CALL @B602(B) 
XCHB R11 

OR ROO,RSS 
SBB RAE,RBA 
TRAP-20 

CALL @BAEB(B) 
CALL @BAE4(B) 


AF,BA,EB 


ane 


ure7) 


izouD 


, 
TRAP-20 
CALL @BAEB(B) 
CALL @7EEB(B) 
CALL @BS802‘B) 
XCHB Ril 
OR ROO,RSS 
SBB RAE.RBA 
TRAP-20 
Data or Text 
CALL @BAE4(B) 


TRAP-20 

CALL @BAEB(B) 
Data or Text 
XOR RS4,A 
IDLE 

ORP A,PBA 
JP/JGT 94 

OR RCO4,R96 
PUSH A 

XORP A,P6E 
DAC “EB, RAE 
ADC R41,R15 
BTJO “%EB,8,22 
DEC A 
JPZ/JGE 91 
DINZ A,EB 
Data or Text 
CALL @BAE1(B>) 
Data or Text 
INV B 

PUSH 8ST 
TRAP-20 

CALL @BAEB(B) 
CALL @BAEB(B) 
CALL SBAEO(B) 
PUSH B 

OR “400,B 

SBB R10,R3B 
CALL SBAEB(B) 
CALL @7EEB(B> 
CALL @BAEB‘B> 
ORP A,P40 
NOP 

SSBB R12,REB 
CALL SBAEB‘B? 
Data or Text 
CALL ®BAED(B) 
PUBH B 

OR %490,.B 

SBB R12,REB 
CALL SBAEB(B) 
Data or Text 
ORP A,P41 
Data or Text 
Data or Text 
MOV RCS,A 
DINZ A,EB 
CALL @BAEB(B) 
ORP A,P41 
Data or Text 
JPZ/JIGE 87 
MOV RE4,A 
SBB ROE,REB 


aF,7E,E8 


EE OD 


AF,BS,Ci 


aF,BA,EB 
10,00,12 


AF, 7E,EB 


oF, BO,EB 


61,14,B9 
61,04,B9 


61,14,BA 
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208C CALL @BAEB(B) 


208F CALL @1105(B) 

2092 ORP A,PS2 

2094 gmP 2E 

2096 Data or Text 40,46,6E 
2099 DINZ A,EB 

209B CALL @BAES(B) 

209E Data or Text 04,11,05 
20A1 ORP A,PS2 

20835 TRAP-20 

20A4 BTJOP B,P1C, 4B 

2007 Data or Text 970,11,98 
20AA CALL @BAEB(B) 

290aD CALL @BAOD(B) 

20B0 ADD B,A 

20B1 PUSH A 

2082 MOV ROG,B 

20B4 Data or Text 21,65,6E 
20B7 DINZ A,EB 

2089 CALL @BAEB(B?) 

20BC CALL @BA10(B) 

2OBF ADD B.A 

20c90 PUSH A 

20C1 MOV ROS,B 

20C3 Data or Text 21,65,6€ 
2906 DINZ A,EB 

20c8 CALL @BAEB(B) 

20CB CALL 848BS5(‘(B) 

20CE CLR RBA 

2000 TSTB 

20D1 Data or Text 10,358,435 
20D4 MPY %BA,A 

20D6 TRAP-20 ij 

20D7 CALL @BAE1(B> 

20DA Data or Text 531,532,664 
20DD Date or Text 04,50,81 
20EO ADD ROS,ROS 

20ES MOVD 44508,.RA 

20E7 DID RE 

20E9 ( 

20EA BTSO—HEO, B, 44 

29ED Data or Text 11,08,82 
20FO MPY RO4,A 

2OF2 DINT 

20F3 Data or Text 10,3B,AE 
20F6 POP A 

20F7 Data or Text 61,C04,B9 
20FA IDLE 

20FB ADC RBI,A 

20FD Data or Text 20,15,55 
2100 ORP B,PS4 

2102 LDSP 

2103 SBB XAE,B 

2105 DINZ A,ES 

2107 OR RSO,R4B 

210A ANDP A,P20 

210C Data or Text 51,44,50 
210F OR R16,R76 

2112 TRAP-20 

2113 CALL #4805(B) 

2116 XOR %65,B 

2118 XOR ROS,A 

211A POP A 

2118 Data or Text 04,56,88 
2i221& at Data or Text 21,00,490 
2121 3 \ Data or Text 61,03,7E 
2124 (2125 JP/JIGT 80 

2126 ADD R47,4 

2128 DAC B,A 

2129 DINZ A,EB 

212B CALL @BAEB(B) 

eize CALL SBAEB(B) 

243i 43- Data or Text AF,7E,E4 
2134 2t BTIZ R3O,A,11 

2137 OR RBI,A 

2139 OR B,A 

213A Data or Text %$1,588,B80 
213D OR R18,A 

213F ow SBB RAF,R7E 

2102 7 LLY] TRAP-20 

2143 CALL @411B(B) 

2146 CALL @3045(B> 

2149 xOR %00,B 

2148 Data or Text 61,15,BA 
214E TRAP-20 

214F (tis Data or Text AF,7E,E4 
2152 Data or Text 11,839,901 
2155 ADC R11,A 

2157 SBB R8C,R11 

215A XOR 440,B8B 


215C ADD R4B,A 
215 (21563 Data or Text AF,7E,E4 


2161 soe Text 11,B9,12 
2164 INC 

2165 Data or Text 11,4B,8C 
2168 Data or Text 11,535,490 
216B ADD R4B,A 

21460 (Vibe Data or Text AF,7E,EB 
2170 CALL @BAEC(B? 

2173 CALL 9B915(B) 

2176 DAC %BB,A 

2178 SBB RAE,B 

PATA DINZ A,EB 

217 

Bx Dia) ipa eh Text AF,7E,EC 
2180 DECD A 

2181 DSB R6E,B 

2183 ADD RO1,RE4 

2186 POP A 

2187 EINT 

2188 RR B 

2189 Data or Text 04,45,2F 
218C DAC %£1,R10 

218F ADD “45,8 

2191 DAC %58,A 

2193 Data or Text 71,2E,50 
2196 EINT 

2197 = MOVD %406B, RAF 

2198 {2} CMP %20,R15 

219E XOR “494,B 

21A0 OR %0D,B 

21A2 DECD RAE 

21A4 DJNZ A,EB 

21A6 CALL @BAEB(B) 

ziae-to | OW Data or Text AF,7C0,44 
21AC . BTJO R11,A,4B 

21AF BTJOP B,P1C,4B 

21B2 MOVP B,PSD 


218 Data or Text 40,87,01~~ jy ve | 
21B7 8 Data or Text 51,2F,7€ 
21BA ) TRAP-20 L 
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8635 
6638 
8639 
8640 
8443 
8645 
8446 
8647 
8650 
8653 
84654 
8457 
8640 
8653 
8666 
8667 
8468 
8670 
84673 
8675 
8478 
8681 

8684 

8686 
8689 
8691 

8692 
8695 
8698 
84699 
8702 
8708 
8707 
8710 
8713 
8715 
8718 
8720 
8722 

8725 
8728 

8729 

8730 

8731 

8732 
8735 
8738 
B740 
8743 
8745 
8747 
8750 
8752 
8735 
8758 
8759 
8761 

8764 
8766 
8767 
8770 
8771 
8772 
8775 
8777 
8778 
8781 

S783 
8784 
8787 
8790 
8793 
8796 
8799 
8800 
BB02 
8804 
8805 
8808 
8809 
8812 
6815 
8817 
8820 
8824 
8827 
8830 
8833 
8836 
8838 
8841 

8842 
8845 
8648 
8651 

sss 
8856 
8857 
sess 
2861 

8864 
8857 
8870 
8872 
8875 
8879 
8882 
888s 
8887 
8870 
8893 
8896 
8899 
8900 
89703 
8904 
8906 
8908 
8911 
8914 
8915 
8918 
8919 
8922 
8924 
8927 
8930 
8933 
8936 
8937 
8939 


2188 
21BE 
21BF 
21cC0 
21c3 
21c35 


he 
Sacz7, ['2. x) 
21D 

21CE 

21D1 

21D4 = 
21D7 (2 \p Dy 
21DA ~ 

21DB 


2201 oT 
2203 

sees (2204) 
2209 

2208 

220€ 

S996) 1b. . 
2212 

were 12213) 
2218 

2219 

221A 

2218 

221C 

221F 

2222 

2224 

2227 

2229 

2228 

222E 

2230 

2233 

2236 

2237 

2239 

223c 

223€ 

2242 

2243 

2244 

2247 

2249 

224A 

224D 224 
224F 

2250 Ls ~ 
2253 

2256 

2259 

225c 

225F 

22690 

2262 

2264 

2265 

2268 

2269 


zt [ez 6D, 


2271 
2274 

2278 oo or [ee 
2278 122 70 
227E ez 
2281 

2284 

2286 
220008 
228A 

Soca goo) 
2290 


2293 
2295 


Data or Text 979,51,14 
DINT 

POP A 

Data or Text 20,15,55 
ORP B,PS4 

PUSH 8ST 

TRAP-20 

Data or Text AF,7E,E4 
Data or Text 11,89,12 
INC B 

Data or Text 1t1,48,87 
Data or Text 21,553,971 
Data or Text %51,BB,AF 
DAC %E4,R11 

POP A 

IDLE 

ADC R11,A 

SBB R87,R21 

XOR 491,8 

Data or Text 351,88,AF 
DAC %EB,RAE 

Data or Text 41,1B,972 
CMP ~%40,B 

BTJIZP A,FPO1,91 


Data or Text AF,7E,E4 
Data or Text 11,89,12 


Data or Text 11,43B,94 
Data or Text 11,24,54 
SUB XEB,B : 

Data or Text AF,7E,E4 
Data or Text 11,B89,01 
ADC R11,A 

SBB R94,R11 

OR %454,A 

SUB %EB,B 

Data or Text AF,7D,904 
BTJO %1C,8,84 

DINT 

POP A 

OR B,A 

DAC B,A 

Data or Text 5S0,44,91 
Data or Text 531,6B,AF 
DINZ A,EB 

CALL @0COS(B) 

MOVP PBA,A 

JPZ/JGE 04 

ADC R15,R16 

DINZ A,EB 

CALL @BAE4(B) 


EEDA B 


BTJZP A,P21,55 
MOVP PS1,B 


DECD AL ape 
3 AB 


ORP %57,PSA 
JZ/JEQ 10 
PUSH A 

Data or Text 41,45,10 
XOR “AE,A 

PUSH A 

Data or Text 92,0D6,11 
OR ROO,RSS 

SBB RAE,R49 

OR R46,R50 

Data or Text 03,2E,BA 
TRAP-20 

MOVP P42,.8B 

JMP 87 

IDLE 

Data or Text 04,04,2E 
TRAP-20 

CALL @BAEB(B) 

CALL @1515(B) 

DAC %58,A 

Data or Text 71,2E,40 
BTJO R95,RB9,25 

Data or Text 11,197,40 
Data or Text 0OC,BA,E1 
Data or Text 51,52,€5 
BTJZP A,P21,5B 

MOVP B,PS1 

Date or Text 11,974,00 
DECD B 

CALL @DAEB(B> ;80sus 
CALL @B925(B) 

Data or Text 04,60,81 
ADC RBI,A 

Data or Text 11,5D,BA 


Data or Text 50,05,88 
Data or Text 40,6B,82 
Data or Text 10,82,cC8 
Data or Text 40,57,6E 
DINZ A,EB 

CALL 94944(B) 

BTJO RSO,ROS, 2E 

Data or Text 50,05,88 
Data or Text 40,67,6E 
DINZ A,EB 

CALL @D925(B) 

Data or Text 11,197,490 
Data or Text oc,B8,B4 
MOV R28,R40 

TRAP~-17 

XxOR R75,RB6 

POP A 

XOR %11,A 

ADC R40,A 

Data or Text OC,B8,B4 
MOV R28,R40 

TRAP-17 

XOR R75, RAE 

LOSP 

Data or Text 71,2E,59 
SBR RAE,A 

Data or Text 50,05,88 
Data or Text 40,6B8,8B 
Data or Text 11,81,0B8 
DAC %EC,RBD 

DECD A 

DSB R6E,B 

XOR R4B,RAC 
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2376: 

2379 4 ORF A,PSO 
2378 [2378 \ BTJO %EB, R90, 46 
237F TRAP-20 

2380 CALL @BAE6(B) 
2383 POP 8ST 

2384 Data or Taxt 
2387 Data or Tent 
238A MOV %ES,B 
238C ADD R19%,ROO 
238F ; RETI 

2390) AST 0 RLC RBB 

2392 TRAP-23 

2393 XORP %DF,PCA 
2396 TRAP-23 

2397 XORP %€8,PAS 
239A IMP 15 

239C TRAP-23 

239D XORP %E0,P24 
23A0 , = TRAP-zS 

z3a1 | 23 AZ! xXORP _4EO, POF 
eS ee 

“< "aw 

23A7 XORP %E8,PAS 
23AA TRAP-23 

23AB XORP %E0,PBA 
23AE IMP Cc? 

2350 TRAP-23 

2381 XORP %E1,P9B 
pe eo rece 

6 

2388 TRAP-23 

23B9 XORP %E8,PAS 
238C TRAP-23 

23BD XORP %EO,PAB 
23C0 IMP C9 

23C2 TRAP-23 
23c3— >) XORP %E1,P9B 
2306 | 23CyY IMP 7E 

23c8 RL RBO 

23CA RL RAD 

23CC TRAP-23 

23CD XORP %E8,PAS 
23D0 JMP BA 

23D2 IMP C9 

23D4 TRAP-23 

2305 =~ XORP %E1,P9B 
2308 \ Sen ys) MP aD 

23DA es RL RSO 

23DC RL RAD 

23DE TRAP-23 

23DF XORP %E8,PAS 
23E2 IMP AB 

23E4 JMP C9 

23E6 TRAP-23 

23E7 — ~~ XORP %E1,P98 
Bae \e- > Eo) one te 

23EE JMP D8 

23F0 TRAP-23 

23F1 XORP %E8,PAS 
23F4 JMP AB 

23F6 JMP C9 

23F8 TRAP-23 

3F9 + XORP %E1,P98 
sre (2 4-Fce TRAP-23 ° 
23FD XORP %E8,PAS 
2400 TRAP-23 

2401 XORP %DE,P80 
2404 RL RAD 

2406 IMP E7 

2408 TRAP-23 

2409 XORP %E8,PAS 
2400 ,. ; TRAP-2S 

zeoo [2 40) xonr xe0,ras 
2411 XORP %E8,PAS 
2414 RL RPE 


Data or Text 
; MOV “4CB,B 
(Z2E4 Data or Text 
CALL SBAEB(B? 
Data or Text 
OR RB2,A 
TRAP-20 
CALL SBAEB(B) 
Data or Text 
ORP 5B.Pil 
XOR “%6E,8 
TSTA/CLAC 
OR R16,R11 
SBB R2E,R59 
SBB RAF,A 
DAC %EO,R91 
Data or Text 
MOV RE4S,B 


11,05,84 
AF, 7E,EB 
04,41,61 


AF, 7E,84 


40,52,14 


er Sn 0 


Data or Text 


BTJO R76,A,EB 


CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @5481(B) 
Date or Text 
STA @1181 
RETI 


AF,SD,02 


90,0900,BB 


BTJO %EB,RAE,BA 


TRAP-20 

CALL @5445(B) 
ADD R20,A 
Data or Text 


BTJZ R6E,B, BA 


TRAP-20 

CALL @BAEB(B) 
CALL @2D10(B) 
MOVP PS8,A 
ORP A,PSO 


21,2E,20 


BTJO “EB, RAE, BA 


TRAP-20 

CALL @BAEB(B) 
CALL @5445(B) 
CALL @BAEB(B) 
CALL @41135(B) 
CALL 85445(B) 
CALL @4114(B) 
Data or Text 
Data or Text 
MOVP PSD,A 
Data or Text 


BTJZP &, POO, 58 


04,B9,01 
04,00,5B8 


61,D1,50 


90,44, 42 
Fi, et Ce 
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9238 24146 JmMP E7 


9240 2418 TRAP-23 
9241 2419 XORP ZE8,PAS 

9244 241C TRAP-23 

9245 241D — XORP %E8,PAS 

9248 2420 | 2420) TRAP-23 

9249 2421 XORP %E8,PAS 

9232 2424 TRAP-23 

9253 2425 XORP “EO,PF6 

9256 2428 JN/ILT OS 

9258 242A JN/ILT 14 

9250 242C TRAP-23 

9261 242D XORP XE8,PAS 

#264 2430 TRAP-23 

9265 2431 (2433 XORP %E8, PAS 

9268 2434 RL R42 

9270 2436 TRAP-23 

9271 2437 XORP %EB,PAS 

9274 243A RL R71 

9276 243C TRAP-23 

9277 243D XORP ZE8,PAS 

9280 2440 a TRAP-23 

9281 2441 — = XORP %E8,PAS 

9284 2444 (24U44, = TRAF-23 

9285 2445 ~ XORP %E8,PAS 

9288 TRAP-23 

92897 XORP %E8,PAS 

7292 TRAP-23 

9293 XORP %ES,PAS 

9296 TRAP-23 

9297 XORP %E3,PO3 

9300 JC/I8 12 

9302 IZ/0EG 2A) Ye 
9304 TRAP-23 

9305 XORP %E8,PAS 

9308 TRAP-23 

9309 XORP %E8,PAS 

9312 TRAP-23 

9313 XORP %EB8,PAS 

9314 TRAP-23 

9317 XORP %E8,PAS 

9320 [24 8; JZ/JEQ 2 

9322 TRAP-23 

9323 XORP %E8,PAS 

9326 246E TRAP-23 

9327 246F XORP %E8,PAS 

9330 2472 TRAP-23 : 
9331 2473 XORP %E8,PAS 

9334 2476 TRAP-23 

9335 2477 (2973) XORP %E3,P21 

9338 24780 TRAP-23 

9339 2473 XORP %E3,P30 

9342 247E TRAP-23 

9343 247F XORP %E3,P3F 

9346 2482 TRAP-23 

9347 2483 XORP %E3,P4E 

9350 2486 TRAP-23 

9351 2487 XORP %E8,PAS 

9354 2480 DINZ A,EB 

9358 248C ORP B,P1i 

9358 248E Data or Text 51,16,56 
9361 2491 TRAP-20 

9362 2492 CALL @BAEB(B) 

9365 2495 CALL @BAER(B) 

9368 2498 CALL 96515(B) 

9371 2498 XOR R5A,A 

9373 249D JZ/JEQ 93 

9375 249F MPY %4B,A 

9377 2401 Data or Text 9F,82,FB 
9380 24A4 CMP B,Aa 

9381 2445 DAC %3B,RDD 

9384 24A8 DINZ A,EB 

9386 2408 CALL @BAEB(B) 

9389 24AD BR @5465 

9392 24B0 DAC B,A 

9393 24B1 Data or Text 50,40,AC 
9396 24B4 PUSH 8ST 

9397 2485 TRAP-20 

9398 24B6 CALL @BAEB(B) 

9401 24B9 CALL @BBCS(B) 

9404 24BC BTJO R56,REO,D4 
9408 24C0 XOR R24,R84 

9411 24C3 PUSH 5T 

9412 2404 TRAP-20 

9413 24CS CALL @E48A(B) ;GOSUB 8UB148A (MIGHT BE BOGUS) 
9416 2408 TRAP-23 

9417 24C9 XORP %E4,P99 

9420 24CC TRAP-23 

9421 24CD XORP %E8,PAS 

9424 24D0 TRAP-23 

9425 24D1 XORP %E4,PA8 

9426 2404 TRAP-23 

9429 24D5 XORP %E4,PB7 

9432 2408 TABLE20 ADC R23,A ;CAN’T SPOT ACTUAL LENGTH 
9434 24DA AND %22,A 

9436 24DC AND %23,A 

9438 24DE DAC R28,A 

9440 24E0 ADD %1E,A 

9442 24E2 DAC R23,A 

9444 2464 AND %1E,A 

9446 24E6 ADD %1E,a& 

9448 24E8 zest DINZ A,EB 

9450 24EA CALL @BAEB(B) 

9453 24ED CALL @BAEB(B) 
9456 24F0 CALL @BAEB(B) 

9459 24F3 CALL @BAEB(B) 

9462 24F6 CALL @BAEB(B) 

9465 24F9 CALL @BAEB(B) 
9468 24FC CALL @BAEB(B) 

9471 24FF CALL @BAEB(B? 
9474 2502 CALL @BAEB(B) 

9477 2508 CALL @5041(B) 
9480 2508 OR RS2.RES 

7483 2508 MOVP PB9,B 

9485 250D Data or Text 61,C4,89 
9488 2510 XOR “%44,R52 

9491 2513 CLR B 

9492 2514 DAC B,A 

9493 2515 Data or Text 30,04,17 
7496 2518 NOP 

9497 2519 DECD A 

7498 251A BTJOP B,P46,E2 
9501 251D Data or Text 109,58,45 
7504 2520 MOV RSO,A 

7506 2522 XOR RAE,R21 

7509 2525 EINT 

7519 2526 P 7B, B2 
9513 2529 MOV B,A [ 
9514 252A ; 

9516 252C Data or Text So,89,80 


93519 252F RETI 
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ripma Pwd 


9520 
9522 
9523 
9525 
9528 
9531 
9534 
9537 
9540 
9543 
9545 
9547 
9549 
9552 
9555 
9557 
95460 
9563 
9565 
9566 
9567 
9570 
9571 
9574 
9576 
9579 
9581 
9582 
9585 
9584 
9587 
9590 
9593 
7574 
9595 
9597 
9599 
7601 
F504 
9507 
9609 
9611 
F612 
7615 
9618 
7420 
9623 
7625 
9627 
FH30 
FO33 
7o36 
9639 
7642 
9645 
9648 
9649 
9651 
9653 
9655 
9636 
9657 
9658 
9660 
9663 
9666 
9669 
9671 
9574 
9675 
9677 
97678 
9680 
9681 
9684 
9686 
9688 
9690 
9692 
9695 
9699 
9701 
9702 
9704 
9705 
9707 
9708 
9710 
9712 
9714 
9717 
9720 
9722 
9726 
9727 
9730 
9732 
9735 
9738 
9741 
9744 
9747 
9748 
9749 
9753 
F755 
9756 
9757 
9759 
9762 
9765 
9768 
9771 
9774 
9777 
9778 
9779 
9782 
9784 
9787 
9789 
9792 
9793 
9794 
9797 
9799 
9800 
9803 
9806 
9807 
9808 


2530 
2532 
2533 
2535 
2538 
2538 
2S53E 
2541 
2544 
2547 
23549 
2548 
254D 
2550 
2553 
2558S 
2558 
2558 
255D 
25S5€ 
255F 
2562 


(2563 


2566 
2568 
2568 
256D 
256E 
256F 
2570 
2573 
2576 
2579 
25784 
2578 
257D 
257F 
2581 
2584 
2587 
2589 
2588 
256C 
258F 
2572 
2574 
2597 
2579 
2593 
257E 
25A1 
25A4 
25A7 
25AA 
25AD 
25890 
2581 
25B3 
2585 
2587 
2588 
2589 
2S5BA 
258C 
25B8F 
25C2 


2543 


e 9C! 


Eos. 


MPY %445,B 
CMP B,A 

DIJNZ A,EB 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAE1(B>) 
Data or Text 
DAC %02,A 
JMP cS 

ADD R8S5,A 
CALL @591B(B) 
CALL @BAEB(B) 
ORP A,P68 
Data or Text 
SBB R9IS,RSP 
XOR RO4,A 
PUSH 8ST 
TRAP-20 

CALL @B884 (8) 
EINT 

XxOR R43,R00 
ADD 484,B 
Data or Text 


Data or Text 
Data or Text 
Data or Text_ 


TRAP-17 

ADD %71,8 
DAC %BA.A 
JNZ/JINE O08 
Data or Text 
Data or Text 
MOV %ES.B 
MOV A,R21 

SBB B,A 

CALL @BAEB(B) 
CALL @BAE4(B) 
MOV %11,B 
Data or Text 
SBB %5E,B 
DINZ A,EB 
CALL @BAEB(B? 
CALL @BAEB(‘B) 
CALL @BAEB(B? 
CALL SBAEB(B) 
CALL @BAEB(B?) 
CALL @BACS‘B) 
Data or Text 
DINT 

MOV RCB,A 
ANDP A,P21 

OR %8B,8 

IDLE 

CLR A 

DAC B,A 

DJNZ A,ES 
BTJZP A,P12,E4 
SBB ROC,R4S 
BTJO “%B9,5,74 
XOR R10,A 

OR R2E,RBS 
TSTB 

XOR RS4,A 
IDLE 

ORP A,PB6 
TRAP-20 

CALL @5D51 (8B) 
DAC %B3,A 
SBB R2E,B 

XOR R15,A 
DAC 458,A 
Data or Text 
BTJG RV6,RBS,C 
XOR RS4,A 
IDLE 

ORP A,PBA 
TRAP-20 

MOVP PS2,8 
TRAP-20 

MOV RB2,B 
JN/JLT Si 

MOV XES,B 
BTJZP A,P12,EB 
CALL @BAEB(B) 
MOVP B,PSO 


10,58,45 


03,08,40 


S0,F6,E4 


21,00,40 
61,2€,58 
71, 28,64 


00,44,42 


21,21,C4 


40,14,11 


04,55,50 


71,2E,40 
1 


BTJO ROS,R45,75 


DAC B,A 

xOR RO1,R2D 
DINZ A,EB 
CALL @B97S5(B) 
OR RBA,REB 
Data or Text 
CALL 94941 (B> 
BR @B964(B) 
DAC B,A 

EINT 

BTJO “EE,ROZ,E 
ORP B,P44 
XOR B.A 

NOP 

MOV REO.B 

OR R15,R15 
Data or Text 
Data or Text 
Date or Text 
CALL @B820(B) 
Data or Text 
TRAP-17 

POP 4 

Data or Text 
XOR %04,A 

ADC R75,RO02 
MPY ROS.A 

OR RBB,R16 
TRAP-17 

POP ST 

Data or Text 
ORP A,PO6 
POP A 

Data or Text 
Data or Text 
IDLE 

RETI 

PUSH A 


10,11,AS 


4 


04,21,6B 
81,10,62 
10,56,DB 


10,98,42 


61,04,B9 


79.10,18 


61,C04,B8 
21,00,41 
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7809 
9812 
9815 
9818 
9821 
9824 
97e25 
9828 
sesso 
9631 
9834 
9837 
7839 
984i 
78435 
9845 
9847 
9849 
9852 
97854 
9856 
9857 
98s? 
9860 
9862 
9865 
9867 
7870 
9873 
9875 
9877 
9878 
bn A-- 29) 
9882 
yess 
9858 
787i 
9894 
9897 
9899 
99902 
9905 
9908 
9911 
9911S 
9914 
9917 
9920 
9922 
9925 
9927 
F9SO 
9932 
9933 
9936 
9939 
9942 
99435 
9947 
9948 
9951 
99352 
9955 
9958 
9961 
9963S 
9965 
9966 
9967 
9969 
9972 
9974 
9975 
9977 
99780 
9981 
9982 
9983 
9985 
9987 
9989 
9993 
9994 
9996 
9998 
9999 
10002 
10004 
10007 
10068 
190010 
10012 
10014 
100138 
10017 
190020 
10023 
10026 
19928 
190030 
10031 
109033 
10036 
10039 
190490 
19043 
10046 
190047 
10050 
10033 
10056 
10059 
10062 
10063 
10066 
10068 
10070 
10073 
10075 
10078 
10081 
10082 
10084 
10087 
10089 
10091 
100974 
10097 
10100 
10103 
10104 


2651 
2654 
26357 
265A 
26SD 
2660 
2661 
2644 
2666 
2667 
266A 
266D 
266F 
2671 
2673 
2675 
2677 
2679 
267C 
267E 
2680 
2681 


2683 


2684 
2686 
2689 
268B 
268E 
2671 
2693 
2695 
2676 
2698 
257A 
269D 
26A0 
24as 
2646 
26Aa9 
26AB 
26AE 
26B1 
26B4 
26B7 
26B9 
26BA 
26BD 
26CO 
26C2 
26CS 
26C7 
26CA 
26CC 
26CD 
26DO 
26D3S 
26D6 
2609 
26DB 
26DC 
26DF 
26E0O 
26ES 
26E6 
26E9 
26EB 
26ED 
26EE 
26EF 
26F1 
26F4 
26FS& 
26F7 
26F9 
26FC 
26FD 
26FE 
26FF 
2701 
2703 
2705 
2709 
270A 
270C 
270E 
270F 
2712 
2714 
27 iF 
2718 
271A 
271C 
271E 
271F 
2721 
2724 
2727 
272A 
272C 
272E 
272F 
2731 
2734 
2737 
2738 
27383 
273E 
273" 
2742 
2745 
2748 
2748 
274E 
274F 
27352 
27354 
2756 
2759 
2758 
275E 
2761 
2762 
2764 
2767 
2769 
276B 
276E 
2771 
2774 
2777 
2778 


24GB 


2699 


i/ 3) 


Data or Text 11,05,45 
Data or Text 41,2£,58 
Data or Text 71,2E&,49 
OR R46,R50 

Data or Text 03,2E,BA 
TRAP-20 

CALL @BAEB(B) 

XORP B,PSe 

EINT 

BTJO RS6,A,DB 

CALL @1105(B) 

ORP A, PS2 

JPZ/JGE 87 

MOV REB,A 

ORP B,P11 

XOR RC4,B 

XOR %61,B 

Data or Text 0O3,89,20 
XOR RSS,A 

ORP B,PS4 

PUSH ST 

JMP 10 

PUSH ST 

JP/JIGT 94 

Data or Text 11,55,6E€ 
DJINZ A,ES 

BTJZP A,P12,EB 

Data or Text 04,41,61 
OR RB2,A 

JZ/JEQ B4 

DAC B,A 

DECD RAE x 

DINZ A,EB 

CALL @BAEB(B) 

CALL SBAEB(B) 

CALL @BAEB(B?) 

CALL @BAEB(B> 

CALL @5D51 (B? 

DAC %58,A 

Data or Text 71,2E&,B0 
Data or Text 20,10,08 
MOV REC,RBS 

Data or Text A1,1B,BA 
JPZ/JGE 91 

PUSH A 

Data or Text 31,0B,11 
Data or Text 61,2E,B9 
XORP B,P11 

Data or Text 40,6B,AE 
DINZ A,EB 

CALL @BAEB(S) 

ANDP A,P20 

MOV B,A 

BTJO RS6,A,DB 

CALL @BAEB(B) 

CALL @BAE1(B) 

Data or Text 10,58,45 
DAC %02,A 

TRAP-20 

ANDP %D4,P32 

DINT 

Data or Text 21,6B8,AE 
Data or Text 41,73,01 
Data or Text 11,45,AE 


ADC %1B,B 
XORP A,P21 
NOP 

TRAP-17 

ADD %70,B 
BTJO R48,A,01 
ORP A,PBS 
TRAP-20 

ORP A,P41 


Data or Text 61,14,BA 
RR B 

TRAP-19 

PUSH A 

OR %454,8 

ADD %471,B 

DAC %40,A 

BTJO R9S6,RBI, 20 

DINT 

MOV RE4,A 

OR *%BA,B 

RR B 

BR @6854(B) 

OR “~B9,B 

Data or Text 61,C04,B8 
TSTA/CLRC 

XOR RSA,A 

JP/IGT 80 

ADD R4B,A 

DAC B,A 

DINZ A, EB 

BTJZP B,PS4, 4B 

BR @0804(B> 

Data or Text 92,10,BB 
DAC 4597,A 

SBB RAE,A 

POP A 

XOR 491,8 

SUB REO,R2E 

ADD RO1,R84 

POP A 

Data or Text 51,90,50 
Deta or Text 21,E&D,BA 
TRAP-20 

CALL @BAEB(B> 

CALL @BAEB(B) 

CALL @BAEB(B) 

CALL SBAEB(B) 

CALL @1512(B) 

DECD B 

XOR R9PB, RAE 

ADD «71,8 

DAC %30,A 

OR R17,R56 

omMP 15 

ADC R44,R4C 

ADC R41,R05 

PUSH A 

ORP A,P2E 

XOR R40,RC4 

MOV XES,B 

MOVP PBS,B 

Data or Text 21,C0,40 
Data or Text 61,2E,B9 
Data or Text 61,004,897 
Data or Text 40,16,21 
IDLE 

CALL @BAEB(B) 
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10107% 2778) 


10109 
10111 
10114 
10117 
10121 

10123 
10124 
10127 
190129 
10136 
10134 
10135 
10137 
10140 
10141 

10143 


277D 
277F 
2782 
2785 
2789 
278B 
278C 
276F 
2791 
2792 
2796 
2797 
2799 
279C 
279D 
279F 
27A2 
27A4 
27aS 
27A8 
27A9 


.27AB 


27aDd 
27AE 
27B0 
27B2 
2785 
27B7 
2789 
27BA 
278C 
278E 
278BF 
27C0 
27C2 
27C4 
2706 
27c9 
27CB 
27CD 
27CF 
27D2 
2708 
2708 
27DB 
27DD 
27EO 
27E1 
27E2 
27E4 
27&7 
27EA 
27EC 
a27eF 
27F1 
vA 4 
27FS 
27F8 
27FA 
27FC 
27FF 
2801 
2802 
2805 
2806 
2809 
280C 
280E 
2811 
28135 
2815 
2818 
281A 
281C 
2820 
2821 
2924 
2826 
2928 
282A 
282C 
282D 
282E 
282F 
2831 
2833 
2835 
2838 
2635 
283C 
Z283E 
2841 
2844 
2845 
2846 
2847 
2848 
2849 
284B 
284D 
284F 
2850 
2851 
2852 
2855 
2858 
28359 
285c 
28S5D 
2860 
2862 
2844 
2867 
2869 
286A 
286C 
286D 
2870 
28753 
2874 
2875 
2878 
287A 
287D 
2860 
2883 
2886 
2889 
288C 
288F 


Z30F 


LY¥8) 


MOVP A,P10 

MOVP A,PCS 

Date or Text 40,6F,6E 
XOR R4B,R96 

BTJO REB,RAE, BP 

XOR %4D4,A 

POP s8T 

Data or Text 79,15,12 
JMP 10 

PUSH A 

BTJO RO4,R41,6B 

DAC B,A 


ae AB 


ra: 
BTJZP A,P21,35 

MOVP PS51,B 

DECD A 

TALL 9B885(B? 

Dac B,A 

ADD %71.B 

DAC %0C,A 

EINT 

ORP A,PFS 

JPZ/J6E 38 

Data or Text 30,4F,5E 


MOVP P40,A 

AND RDO,B 

NOP 

TSTB 

DAC %44,A 

SBB “4AE,B 

DJINZ A,ES 

BTJZP A,P12,E4 

ORP B,Pi1 

MOVP A,P11 

CMP %S58,B 

CALL @864B(B) 

CALL @4975(B) 

Data or Text 02,1C,05 
OR ROE, REB 

MOVP B,PS1 

Data or Text 11,94,00 
CLR B 

CMP B,A 

DINZ A,EB 

BTJZP B,PS4, 4B 

BR @CECB(B) 

XORP A,P4S 

SBB RIO,R1i1 

MOVP P14,8B 

PUSH A 

OR R16,RS50 

Data or Text 81,15,F6 
JP/JIGT 34 

DINZ A,CC 

BR @8854(B) 

OR “£BA,B 

TRAP-20 

CALL @8912(B) 

INC B 

Data or Text 11,4B, 971 
Data or Text 40,45,6D0 
DINZ A,EB 

CALL @5871(B) 

DAC %469,A 

MOVP PC4,A 

OR R22,R12 

MPY R45,A 

DAC %428,4 

BTJO RDS,R7E,E6 

POP ST 

Data or Text 11,9F,6E 
MPY R42,8 

DEC RF& 

JPZ/JIGE 44 

ADC %74,B 

RRC A 

POP A 

IDLE 

SUB RSA,A 

JIP/IGT 74 

SBB RDB,A 

BR $1155 

Data or Text 40,18,4F 
DAC B,A 

ADD 446,B 

BTJOP B,PFS,EC 

CALL #0100(B>) 

TRAP-17 

RL B 

TRAP~20 

TRAP-17 

XxOR B,A 

XOR ROA,A 

DJNZ A,EB 

MOVP P40,B 

XCHB A 

TRAP-17 

OR B,A 

Data or Text 71,10,B9 
Data or Text 61,C4,BA 
TRAP-20 

CALL @6080(B) 

INV B 

OR R22,R12 

MPY R45,A 

DAC %2C,A 

Data or Text 81,87,5A 
JZ/JEQ 15 

POP A 

OR R2D,A 

PoP A 

XOR %44,RB9 

Data or Text 61,C04,BA 
XCHB 8 

POP 8ST 

Date or Text 11, 9B, 2E 
DINZ A,EB 

LDA @118BB 

BTJOP B,P46,E5 

OR R12,RE5 

MOVD RBO,REB 

CALL @BAEB(B) 

BTJZP B,PS4,48 

BR @1105(8) 

ORP A,PS2 
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10385 
10386 
10389 
10392 
10393 
10395 
10398 
10401 
10402 
19404 
10405 
10407 
10410 
10413 
10416 
10419 
10422 
10424 
10425 
10428 
10430 
10431 
10434 
10437 
10440 
10442 
10444 
10445 
10449 
10452 
10455 
10488 
10461 
10462 
10464 
10468 
10467 
10470 
10473 
10476 
10479 
10482 
10484 
10485 
10487 
10489 
10490 
10493 
10496 
10499 
10502 
10503 
10506 
10507 
10510 
10811 
10513 
10514 
10816 
10518 
10521 
10523 
10525 
10527 
10530 
10533 
10535 
10836 
19539 
10342 
10545 
10548 
105351 
10554 
10557 
10540 
10843 
10565 
10569 
10572 
10573 
10576 
10879 
10581 
10582 
10583 
10584 
10585 
10586 
10589 
10592 
10595 
10598 
10602 
10604 
10607 
10610 
10613 
10616 
10618 
10621 
10623 
10627 
10626 
10630 
10631 
10432 
10633 
10636 
10639 
10640 
10641 
10642 
10643 
10646 
10648 
10651 
10652 
10655 
10688 
19660 
10661 
10644 
10665 
10669 
10671 
10673 
10674 
10676 
10677 
10680 


2JE) 


2938 


LARY 


DECD B 

BTJOP B,P46,EB 
CALL @B8CO(B) 
RETS 

MOV RES,A 
BTJZP A,P12,E4 


ALL @BAEB(B? 
ALL @BAEB(B) 
CALL @BAEB(B? 
CALL @BAEB(B) 
CALL @BAES(B) 
CLR Ri2 
TRAP-20 

Data or Text 
ORP A,P2E 
DECD B 

CALL @454B(B) 
CALL @BAEB(B) 
BR 96081 (B) 
ADC RB2,A 
JPZ/JGE 91 
PUSH A 

BTJO R88,RSA,E 
CALL @Baks (BS 
ADD RS8,R74 
BTJZ %SA,B,E4 


Seen 


DAC B,A 

DINZ A,EB 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAES(B) 
CLR R12 
TRAP-20 

AND RB2,8B 
JPZ/JGE 91 
POP A 

Data or Text 
SBB RAE,RBO 
Data or Text 
Data or Text 
IDLE 

CALL @#0842(B) 
RETI 

Data or Text 
POP A 

XOR R2E,A 

INC A 

SBB %2E,A 
ADC 41B,B 

STA 945971 

OR RBS,A 

XORP A,PAD 
DINZ A,EB 
BrJIZP 8,PS4, 4B 
BR @1105(B) 
ORP A4,P52 
DECD B 

BIJOP 8,P46,EB 
CALL SBAEB(B?) 
CALL @B8824(B) 
Data or Text 
BTJZ R12,8,DB 
CALL @BAEB(B) 
CALL @BAEB(B>? 
CALL @BAEB(B) 
CALL @BAEB(B? 
CALL @BAEB(B>) 
CALL @BAEB(B) 
CALL @B805(8B) 
INC B 

Data or Text 
OR RI1,R2E 
OR %42,8 

INV B 

sTsPe 

xOR B,A 

DAC B,A 

PUSH A 

MOV R16,R1C 
XOR R2E,RS8 
Deta or Text 
MOV ROC,RO1 
BTJO REE,RBA,E 
OR %89,8 
Deta or Text 
Data or Text 
OR ROO,RSB 
SBB RAE,RBA 
JP/IGT 974 

OR R65, R00 
MOV RES,B 
BTJZ R11,R0B,9 
XOR B,A 

SBB RAE,A 
PUSH A 

EINT 

INC B 

Data or Text 
Data or Text 
NOP 

CLR B 

DAC B,A 

IDLE 

Data or Text 
gMP 44 

Data or Text 
EINT 

OR R40,ROC 
Data or Text 
DECD RAE 
STSP 

Data or Text 
SBB B,A 

MOVD 456ES,R87 
MOV REO,A 
MOY B,R2C 
TSTA/CLRC 

OR ROO,A 

INV B 

BTJZ %41,8,6B 
MOVP P60,A 


02,91,90 


A,& 


40,08,54 


61,04,B9 
40,16,21 


21,01,AE 


50,58,84 
21,18,8C 


71,2E,49 
4 


61,C4,B8 
02,0D6,11 


6 


21,1B,92 
S1,11,94 


41,2E,BAa 
21,01,AE 


20,15,5A 


41,03,21 


7 ; Te Ss Pate 
; 


gat 


‘ape ee oe ay 
? rm ‘ 
ae 
wee { t ot at bw : ey , 


yet ie 
oo 


#6,s3 - 
Lan 
. 1p. 
¢ , 78,08 Sue 
ae pe 
‘e;¢ 
ae 
eX 
i 14) 63 <8 32 
ia; eReee a4 o 


(A) SRA8E 14S, -~ 
a ers 


10682 
19685 
190687 
19688 
10690 
10692 
10693 
10695 
10696 
10697 
10699 
10700 
10703 
107085 
10707 
19710 
10713 
10716 
10719 
10722 
10725 
10728 
10729 
10731 
10733 
10735 
10736 
10738 
10739 
10741 
190743 
10745 
10748 
10751 
10753 
10754 
10756 
10758 
10761 
10754 
10767 
10770 
10773 
10776 
10779 
190782 
10785 
10789 
10790 
10793 
10794 
10796 
10798 
10799 
10802 
19605 
10808 
190819 
10811 
198173 
10816 
19818 
10821 
19823 
10824 
10825 
190828 
10829 
10832 
10834 
10837 
10839 
10840 
10842 
10845 
10846 
10849 
10851 
10852 
10854 
10857 
10860 
10863 
10865 
10867 
10868 
10871 
10872 
10874 
10876 
10877 
10879 
10682 
190865 
10886 
10889 
10892 
10894 
10896 
10899 
10901 
19903 
10906 
10908 
10909 
10912 
10913 
190916 
10917 
19920 
10922 
10924 
10926 
10928 
10932 
10935 
10937 
190940 
10942 
10944 
10947 
10949 
10950 
10953 
190956 
10958 
10960 
190963 
10965 
10968 
10969 


2 &OD 


22RD 


Data or Text 
MOV RC4,A 
PUSH A 

OR 454,8 

DINZ A,ES 
NOP 

ADD %84,A 
DINT 

POP A 

XOR “£D4,A 
POP 8ST 

Data or Text 
SBB %6E,B8 
DINZ A,EB 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @BAEB(B) 
CALL @0941(B) 
Data or Text 
CALL @6045(B?) 
POP ST 

OR R8O,A 
MOVP PS8,A 
ORP A,PSO 
PUSH A 

XORP A,P6E 
MP 


c B.A 

XOR RD4,A 
DINZ A,E4 

ORP B,P4S 
Data or Text 
Data or Text” 
oMP 02 

sTsP 

xOR RDO,A 
SUB %E0O,B 
Data or Text 
Data or Text 
CALL @BAEB(B) 
CALL @BAEB(B>) 
CALL @BAEB(B) 
CALL @BAEB(B?) 
CALL @BAEB(B) 
CALL @02E0(B) 
SBB R21,R02 


MOVD %406B,RB6 


PUSH A 

Data or Text 
EINT 

XOR RBA,A 
JP/JGT 50 
POP A 

Data or Text 
Data or Text 
OR R2E,RS? 
SBB RAE,A 
PUSH A 

ORP A,POS 
Data or Text 
MOV REO,A 
Data or Text 
OR R10,a 
NOP 
TRAP-17 
Data or 
NOP 

Data or Text 
SBB %92,B 
Data or Text 
ADD %484,8 
DINT 

DJINZ A,EB 
CALL @BS85°‘B) 
DAC B,A 

Data or Text 
MPY %40,A 
TRAP-18 

DINZ A,EB 
CALL @B97S5(B) 
OR RBA,RC1 
Data or Text 
MPY XBA,A 
JZ/JEQ OS 
POP A 

Data or Text 
EINT 

XOR %65,.8 
XOR ROS,A 
PUSH A 

XORP A,P4E 
Data or Text 
Data or Text 
PUSH A 

OR R16,R11 
SBB RS85,R51 
AND R2E,A 
DINZ A,1B 


Text 


02,0B,00 


70,155,121 


03,21,6B 


61,02,58 
40,EE,BA 


40,20,04 
02,12,DB 


04,92,10 


61,04,B9 
50,94,10 


29,290,168 
19,589,74 


30,45,55 


61,2E,20 
51,13,12 


11,00,01 


10,58,45 


04,6E,48 


oc, 45,48 
50,40,ED 


BTJOP B,P46,EA 


DAC ~BS,A 
MOV ROG,B 
Data or Text 
XOR R12,A 
DECD B 

XxOR R91,ROS3 
PUSH A 

BTJO REE,A,BA 
TSTB 

Data or Text 
MPY “%BB,A 

OR %54,B 
DINZ A,EO 
DAC %40,A 


21,65, 6E 


10,58,4S 


BTJO R6E,RBA,EB 


CALL @BAE4(B) 
MOVP PSS5,A 
BTJO %51,8,50 
SBB ROE,B 
DJNZ A,EB 
CALL SBAES(B? 
CLR R12 
TRAP-20 

BR #0804 (B) 
Data or Text 
DAC 459,A 
SBB RAE,A 
Data or Text 
ADD 44B,B 
Data or Text 
DINT 

PUSH A 


02,10,BB 


0c, 42,C4 
99,51,14 


"SPYRO Fear ral eae 
48 CERO | Seatac avee 
A eet ae 
J ‘. a eee e ee 
7 os CORSE SS 
> CO GReee 4909 
iS: 9aaee Jaa3 
(eieseue +552 : 
308.458 ee 
- UR Aocee ewer OR 
a eQ® 
Sh TRO tant ve oie 


a, nen tae 


ae “Sane e 
<« 240° ye) 


sae7 


FROM 2B6D TO 2FFF ARE NOTHING BUT FF (BLANK SPOTS IN EPROM). (| here [RAPS 


12288 
12289 
12291 
12311 
12332 
12335 
12339 
12342 
12345 
12348 
12351 
12354 
12358 
12361 
12363 
12366 
12367 
12370 
12374 
12377 
12379 
12362 
12385 
12389 
12392 
12394 
12397 
12406 
12401 
12405 
12406 
12408 
12411 
12414 
12415 
12418 
12417 
12422 
12423 
2426 
12429 
2430 
12433 
12436 
12439 
12440 
12442 
12444 
12446 
12448 
12450 
12451 
12452 
12453 
124356 
12457 
12458 
12461 
12462 
12463 
12464 
12465 
12468 
12469 
12470 
12472 
12474 
12475 
12476 
12479 
12480 
12482 
12484 
12487 
12489 
12491 
12493 
12496 
12498 
12499 
12500 
12501 
12503 
12504 
12505 
12508 
12509 
12511 
12513 
12514 
12515 
12516 
12518 
12517 
12522 
12325 
12525 
12526 
125297 
12531 
12533 
12534 
12537 
12539 
12541 
2542 
12543 
12546 
12548 
12549 
12552 
12553 
12555 
12558 
125462 
12566 
12568 
12571 
12574 
12576 
12579 
12581 
12583 
12586 
12588 
12590 
12593 
12595 
12596 
12597 
12600 
12693 
12604 


3000 
SOOL 

300s 
3017 
302C 
3O2F 
3O33 
3O36 
3039 
soOsC 
SOSF 
3042 
3046 
3049 
304B 
JO4E 
SO4F 
3052 
30S6 
3OS9 
3OSB 
SOSE 
3961 

3065 
3968 
306A 
396d 
3970 
SO71L 

3073 
3076 
73078 
39078 
TO7E 
3O7F 
3082 
3908S 
3086 
3087 
308A 
308D 
SOBE 
3OFl 

3O94 
3097 
3098 
30948 
3O9C 
SO9E 
sOAa0 
3OA2 
s0Aas 
sOA4 
30as 
SOAS 
SOAP 
sOAA 
SOAD 
SORE 
SOAF 
3OBO 
SOBL 

SOB4 
3OBS 
SOBSé 
3088 
SOBA 
3088 
sOBC 
SOBF 
3soco 
3soc2 
30C4 
30C7 
30c9 
30CB 
sOocD 
39000 
3OD2 
300s 
30D4 
3005 
3OD7 
30D8 
30D9 
soDc 
soDD 
SODF 
SOE1 

3SOE2 
SOES 
SOE4 
SOE6 
SOE? 
SOEA 
TOEB 
SOED 
SOEE 
SOF 

TOFS 
SOFS 
TOFS 
SOF? 
JOFB 
SOFD 
SOFE 
JOFF 
3102 
3104 


ad 


TRAP-6 


TRAP-11 


TRAP-7 


TRAP-12 


TRAP-135 


SUBSO98 


TRAP-15 


TRAP-16 


SUBSOBS 
SUBSOBA 


SUBSOCO 


TRAP-O 


TRAP-14 


MOV B,A 
SBB %64,A 


Pars 3 


oF COmnronrutia ys 


Pare a | ae V~* Cas 


Gaitwe {ta othee A.~o> 


COPYRIGHT 1984/1985 
M/A-COM LINKABIT CORP 


MOV “ZFF,POS 


3€@ VALUE STORED IN ’A’ I8 ALWAYS PASSED TO TRAP SIX (AND SOMETIMES STORED IN 2000) 


BTJZP %10,P04,06;TO SOSP (TRAP 6&6 COMMUNICATES WITH U7) 


DINZ ROS,F9 
BR @F138 
STA @2000 
ORP %401,P06 
MOV “FF,POS 


BTJOP %10,FP04,03;TO 3SO4B (EXIT LOOP) 


DINZ ROS,F9 
IMP EB 

ANDP %FE, P06 
RETS 

MOV %FF,POS 


BTJZP %10,P04,05;T0 30SB 


DINZ ROS,F9 
IMP DB 

ORP %01,P06 
MOV %FF,POS 


$TO SO2F (LOOP? 
s;JUMP TO TRAP~-14/2 


BTJOP %410,P04,95;TO 306A 


DIJNZ ROS,FS9 
IMP CC 

LDA #4000 
ANDP “%FE,P06 
RETS 

LDA £R3S 
CALL @FO2C 
INC R3S 

ADC 400,R34 
DJNZ R1O,FS 
RETS 

ANDP %7F.PO4 
XCHB A 

STA @2000 
XCHB A 

CALL @FOB8E 
ORP 480,P04 
RETS 

ORP %02,P06 
STA 82000 
ANDP ZFD,PO6 
RETS 

AND %OF,A 
ADD %20,A 
CMP %2A,A 
IJNC/JL O02 
SUB %2A,A 
RETS 

MOV A,B 
SWAP A 

CALL SFO98 
TRAP-13 

MOV B.A 
CALL @FO98 
TRAP-13 
RETS 

PUSH A 

SWAP A 

CALL @FO98 
TRAP-12 

POP A 

IMP F2 

CLR R1O 
PUSH A 

SWAP A 

CALL @FOCO 
PoP a 

AND %OF,A 
JNZ/JNE 09 
MOV R10,R10 
INZ/JNE 07 
MOV %2E,A 
IMP OS 

MOV %FF,P10 
ADD %20,A 
TRAP-12 

INC B 

RETS 

CLR RIO 
PUSH A 

SWAP 4 

CALL @FOCO 
POP A 

AND %OF,A 
ADD %20,A 


STA @0000(B) 
INC B 
JPZ/IGE F9 
DEC B 

LDA @9000(B> 
CMP ROO,B 
INZ/INE 3E 
INV A 

BTA g0000(B> 
CMP %402,B 
JNZ/JNE FO 
MOV B,A 

INV A 


CMPA @09000(8) 


INZ/INE 2F 
MOV B.A 

STA @0000(B) 
INC B 
IPZ/JGE F2 
MOVP %80,P00 


MOVD %0000,R37 
MOVD 4C002,R35 


LDA #R3S 
ADD ROO,R37 
ADC %00,R36 
INC RSS 

ADC %00,R34 
JNZ/JNE Fl 
MOV R37,A 
CMPA @cool 
INZ/JNE 07 
MOV R36,a 
CMPA @C000 
JZ/JEQ O1 
IDLE 

CLR A 

STA @67ES 
MOV %0S,P13 
DINT 

MOVP %00,P11 


510 S042 (LOOP) te aliwese Has 4s ed pe ROS t ey pa [eee 

; 

i Solaire terete <<< chy Tet telee> VYolses Olssaed b~ te 
Zoos . 

;TO 3052 (LOOP? pad Spits i ee ase at 

pJUMP TO S036 (JUMP TO TRAP 14/2) Yoga 

;TO 3OSE (LOOP? 

sJUMP TO 3036 (JUMP TO TRAP 14/2) 

;THIS I8 THE MASK VALUE FOR THE SERIAL (AUTH) NUMBER (STA 01 IN 4000 GIVES 0101 0101 xxxx) 


ae eae eames or ee 4te A 


SAME AS BOSUB TRAP-6 BUT MAY PASS 1@. Mon OA 
;VALUES USING POP AND PUSH 


37T0 SO71i (LOOP) 
¢ 


;SAME AS GOSUB TRAP-13 BUT MAY PASS 
TVALUES USING FOP AND PUSH 


| $a ee nna <<< 
j 6 oo <x 
3OAZ (RETS) 

ik Setecheieeieseeteitabeteteiemeted <<< 


;GOSUB SUBSO98 (LOOP BACK TO IT) 


;SOSUB SUBS098 (LOOP BACK TO IT? 


7GOSUB SUBSO978S (LOOP BACK TO IT? 


s;JUMP TO SOAR (TO TRAP 15) 


+}G0SUB SUBSOCO 


;TO 3ocD 
j oo --- ---- -- -- ------------ WIERD---- 
;TO SocD 


;JUMP TO 3O0D2 


+GOSUB SUBSOCO ‘(LOOP BACK TO IT? 


< 

sWARM BOOT STARTS HERE AND 
tHAPPENS AFTER EVERY CHANNEL 
3 CHANGE. 


}TO SOES (LOOP) 


#TO SiSS (IDLE? 


3TO SOED (LOOP? 


370 S133 (IDLE 


3TO SOFD ‘LOOP? 


FEE E HEHEHE HEHEHE HEHE HHH Hee Hee eee 
PEER EEE EEE HEHEHE EEE EEE HEHEHE Het HH te ot 


3TO 3116 (LOOP) 
sCOMPARE TO BYTE 1 (CHECKSUM) 
77TO0 3133 (IDLE) 
7COMPARE TO BYTE O (CHECKSUM) 


370 3134 (CONTINUE) 
; CHANGE TO OO TO DEFEAT CHECKSUM 


ALSO SAME ADDRESS AS TRAP-2 


Ih n — 
Aa 


= (t, ‘ ity ia - 
oe yong AD) hey gee at rin Lys } sal 4 


r | 4 ahd salto att Pi 


st 
are Gade fen <e\ ho@ BA®Y @Y O9084"% HyVAbUe. BE ‘ot a? @ tT e ay * 
i SReavy Gee res | ttG atin SRPROssubeta a Fes yr - 
Te) { Jt ve ' 
RA6( ORR? OF SE 


4 ns ar ey wes TOD sexe atc 


a .~e@ 
: ; ; 7 : . . ‘ 4 seer Bi 
‘ JE 4 7 49% 9 
4 & ‘ +.../T ied a wh Pte re wm ete sure ey eae 
& oi tye “5 
: af Oo. eore nae yet ec * 
m-* Div ’ rion . ’ . Opa tote 5 be 
: ’ > : » Cet MOAT OF Sate Weer lis Ps 8s 
Sv , , ee +e 
bet 9 VE Oe 
aa an We .604.027 40h 
canes meee v8 FA.GOR Le 
24%. yan CY @Svh? @tme. 37 ME ce SP ee ¢ 
: 7 (9? ate’) wpa Hv Us Jt1@96 SAT ROX Bula oDeW HHT OS. Core . ar? ea 
; 2 (ety e) wes ey bs 
* ee. | Pe Se See 
: ; 7 Soe ea 
> LeTA sol gna var toe -re guage #4 Siege. 2ae i 
- BBY GHA “b* CRISY GRAN S ° wn S65 
oh Sor - Sta 
¢ abot OT, . wer bay > 
¥ aie silkd ee F 
. 5 
~ 6 we tt w ¥ ts vues 
HMeu® <der B Beers kd ( 
~ 
v>y~ «= we “ “14 et 
* = 
\ 
> jeg “htt ; ke Je. wee 
r 4208 7 wed #O9 
a 
> aie Hi . 7 
2 Dd) gr anam  aieee 
t sa “4AR¥ G7) AaDT < iY . 
7 SHOTS Ase 
o vk 
TT re me ne S 
r OF 
“ a 7 
+3} aid ee ee re dy 
T? ¢& ¥Qee > 2OSFVR CURE, 
t- 
407 em etme t D oe 
Seu oP oe AaTe "OOO TRAE > 
iA NSD RPT eeeReey 
a J . ‘ Fe, 3 is a San ADE 
; . (900) 80% OF, 9 
wes at 


inet 


CAesy CBE Oy 


: J ' 
, 
spomtaiesamctaaaaaa 
weres +telgeree ames 
- 
' 
4 


ere Gee OY 


12607 
12619 
12613 
12616 
12619 
12622 
12624 
12625 
12626 
12631 
12634 
12637 
12640 
12642 
12645 
126497 
126352 
12655 
12557 
12465? 
12663 
12665 
12667 
12667 
12670 
12671 
12674 
12674 
12677 
12678 
12680 
12683 
12684 
12687 
12689 
12690 
12693 
12694 
12697 
12698 
12701 
12792 
12705 
12708 
12711 
12714 
12717 
12719 
12722 
12725 
12727 
12729 
12733 
12737 
12739 
12741 
12745 
12748 
12750 
12753 
12757 
127389 
12762 
12765 
12766 
12769 
12771 
12773 
12776 
tr dy Ae A 
12779 
12782 
12784 
12785 
12788 
12791 
12794 
12796 
12798 
12799 
12600 
12801 
12804 
12894 
12507 
2811 
126812 
12514 
12817 
12818 
12821 
12823 
12826 
12828 
12629 
12832 
12835 
12838 
12841 
12843 
12845 
12847 
12848 
12850 
12853 
12855 
12857 
12859 
12661 
12863 
12864 
12866 
12867 
12870 
12871 
12874 
12875 
12876 
12878 
12889 
12863 
12886 
12889 
12899 
12893 
12895 
12898 
12900 
12903 
12994 
12906 


3SisF 
3142 
3145 
3148 
3148 
S14E 
3150 
3151 

3154 
31357 
31SA 
315D 
3160 
3162 
3165 
3169 
316C 
s1SoF 
3171 
3173 
3177 
3179 
3178 
317D 
S1I7E 
S17F 
3182 
3184 
3185 
3186 
3188 
318B 
318C 
316F 
3191 

3192 
3195 
3196 
S199 

3198 
319D 
SIE 
SIAL 

31A4 
31A7 

Ss1AA 
SiAD 
SLAF 
3182 
3185 
31B7 
3189 
31BD 
31ici 

31cs3 
31cs 
31c9 
31cc 
31CE 
31D1 

3105 
31D7 
31DA 
31D0D 
J1LDE 
S1E1 

S1iES 
SiES 
31E6 
SLE? 
31EB 
S1EE 
31FO 
S1F1 

S1F4 
SLF7 
3S1FA 
SiFC 
SIFE 
SIRF 
3200 
3201 

3204 
3204 
3209 
3208 
320C 
S20E 
3211 

3212 
3215 
S2i7 
321A 
321C 
321D 
3229 
3223 
3226 
3229 
322B 
322D 
322F 
3230 
3232 
3235 
3237 
3239 
3238 
323D 
323F 
32490 
3242 
3243 
3246 
3247 
324A 
324B 
324C 
324E 
3250 
3253 
3256 
3259 
325A 
325D 
325F 
3262 
3264 
3267 
3248 
326A 


SUBSIE1 
S1ES 


S1EE 


SiFF 


T209 


SUBS 22F 


324C 


3254 
3248 


MOVP %40,P11 
MOVP %4E,P11 
MOVP %15,P11 
MOVP %40,P15 
MOVP %17,P14 
MOV %4D,B 
Lose 

MOVP %8F,PO05 
MOVP %10,P1C 
MOVP %04,P04 
MOVP %0C,PO6 
MOV %11,P06 
MOV Z%OF,A 
CALL ac392 


MOVD %O37F,R37 


ANDP 4FE,PO4 
CORP %01,P04 
DECD R37 
JC/JS F6 


MOVD %4DAF,R37 


DECD R37 
JO/3I8 FC 
MOV ZOF,A 
TRAP-6 
TRAP-11 
STA @6228 
MOV %OD,A 
TRAP-6 
TRAP-11 
OR %20,A > 
STA 86239 
TRAP-11 
STA #6238 
MOVP A,P1A 
TRAP-11 
BTA @6237 
TRAP-11 
STA @6236 
TRAP-11 
STA @6235 
CLR A 

STA @622B 
STA 96225 
STA @628D 
STA @628C 
BTA @67E6 
MOV %FF.A 
8TA @6220 
STA 96221 
MOV A,R17 
MOV A,R14 


MOVD %F7DA,R3B 
MOVD %FB3B,R39 


CLR RO4 
CLR ROS 


MOVD %460900,R31 


CALL @FiE1 
CLR R20 
MOV %08,P21 


MOVD %FFFF,R44 


CLR R18 
MOVP %BB,P90 
MOVP %02,P10 
EINT 

BR @F1FF 
CLR ROS 

MOV ROB,B 
LDA @6000(B) 
INC A 
JZ/IEQ OS 
CALL @F22F 
MOV ROBB 
CLR A 

BTA @6000(B) 
ADD %33,R08 
CMP 4CC,ROB 
JNZ/JNE E7 
CLR ROB 
RETS 

STSP 

XCHB A 

CMPA @67E6 
INC/JIL O03 
STA @47E4 
MOV ROS,B 
DINT 

INC R44 

ADC %00,R43 
EINT 

LDA @6000(B) 
JZ/JEQ F2 
CALL @F22F 
MOV ROBS,B 
CLR A 

STA @6000(B) 
STA 86225 
ADD %33,R08 
CMP %CC,ROS 
INZ/JNE 02 
CLR ROS 

JMP DO 

INC A 
JNZ/JNE OD 
LDA @6001(B) 
CMP %C0,A 
JC/I8 96 
AND %3F,A 
CMP %20,a 
JNC/JL O01 
RETS 

MOV A,RO? 
MOV A,B 

LDA @DDC4(B) 
PUSH a 

LDA @DDE6(B) 
PUBH A 

RETS 

MOV RIB,A 
INZ/JNE 17 
LDA #6223 


BTJZ %R10,A,0E 


LDA @F402(B) 
MOV A,B 

LDA @6119(B) 
MOV ROB8,B 
CMPA @6002(B8) 
JNZ/JNE O3 
CALL @F3CS 
RETS 

MOV ROS.B 
LDA @6238 


sSAME AS GOSUB TRAP-17 
FESFFEEEEHEE EEE HEHEHE EPH H HHH ete e eee eee 


370 3169 (LOOP?) 
PREF EEE SHE SHEE EEE EEE E Tee HEE HEE HHH He Ht 


170 3177 (LOOP) Pat ct eee FOR WE Y 
Pork. tt 

ye, 

Mov oc, & 


STtTA& @urre 
7LOADS &® FROM WEIRD MEM LOC Mov FF; fr 


#LOADS A FROM WEIRD MEM LOC (GET SER NO?? 
——— 


sLOADS A FROM WEIRD MEM LOC 


}LOADS A FROM WEIRD MEM LOC STe @L273T 


AF Ww 
3LOADS ROM WEIRD MEM LOC Mov 22 , A 


;LOADS A FROM WEIRD MEM Loc STA @Mezry 
PAo/Y _..- 
Ths. welt see gas 
Cava urcratle Avt%- = 
Head ay tere PPPS Re em And Oo 
setop L) PS, yor west 


net Rib wf TRA Meas 
FPP EEE EEE EEE EEE EEE EEE HEHEHE EE HEH HHH Ht } 
;G08UB SUB31E1 fre peteh ; 


PPEEP EEE EF EEE EEE EH EEE EH HEHEHE tee ee etetese 
PPE EEPE EH ES HEHEHE PEF HH HEPD HEHEHE HHH HH 


PEPER EEEE EEE EEE EEE EEE EEE EEE HEHEHE Hee eee 
3;60TC 31FF 


;70 31EE 
3GO0SUB SUB322F 


;TO 31E3 (LOOP) 


}DIRECT COMPARISON 
1TO 3209 


3TO 3209 (LOOP) 
3608UB SUB322F 


;TO0 322D 
;JUMP TO 31FF (LOOP) 
3TO 323F 


3TO S23F 


3TO 3240 (BYPASS RETS EXPAND LOOP) 
i ae a tia tie alal £<¢ 


;LOOKUP TABLE18 
s THESE ARE VECTORS TO FUNCTIONS FOR THE DIFFERENT MODES 
sLOOKUP TABLE19 


3TO 3267 (RETS?) 


5TO 3264 (BYPASS LOOKUP) 
;LOOKUP TABLE21 


+TO 3267 
3;GOSUB SUBSSCS (CHECK IF VC2 CHANNEL AND IF AUTH.) 


< 
REFERENCED IN TABLES 18/1988 Ree eee REE 
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Vere 20 
“% % Fue 
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tsog7) £3yet oF 
Ye Vee re teen ew mem at ne ag ae Bay = 
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WEE ceve eyene 
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See 


‘ ¥ rel A BOAR L: 
“ror A esti uf 
‘ me 
‘ s . 4 t aa) Pee - 
- A > ® @9an ft .; 
‘ : f in 44 i e 
- DVARs 
} 
ne eh ee een 
+s een en ey nani : gy 
ae ee Ce ne ber it 
pareiue ayere! * 
*os 4 ‘a w ve “« by hee 


“ce BP wy. 


/ TSIRID . * 
vose a¥0 an 


peteagan’ 


326D 
3270 
3272 
3275 
3278 
3278 
3270 
3250 
3282 
3265 
3288 
T28A 
328D 
328F 
3292 
7294 
3297 
329A 
329C 
S29F 
32AZ2 
T2AS 
32A8 
S2AA 
S2AD 
32B0 
3283 
32B6 
3258 
32BB 
32BD 
32C0 
32C2 
32C5 
32cs 
32CA 
32CD 
32D0 
32D4 
32D7 
3208 
32DA 
32DD 
32EO0 
32E2 
32ES 
32E8 
S2EA 
S2ED 
S2EF 
32F1 
32F3 
32F6 
32-8 
3S2FA 
S2FC 
32FF 
3300 
3302 
3305 
3307 
330A 
3308 
330D 
SSOE 
3310 
3311 
Sts 
3314 
3315 
3317 
S31F 
3318 
331C 
STILE 
3320 
3324 
3327 
3328 
332A 
332B 
332D 
S32E 
33350 
3331 
3332 
3335 
3338 
S3IA 
333D 
3340 
3343 
3345 
3348 
334B 
S34E 
334F 
3351 
3353 
3356 
3359 
3358 
S3SE 
3361 
3365 
3366 
3369 
336B 
S36E 
3371 
3373 
3376 
3378 
3379 
3378 
S337F 
3382 
3385 
3387 
338A 
3388 
338D 
3390 
3395 
3395 
3398 
S3PA 
339D 
SSAO 
3SA2Z 
33A5 


3S2AD 


32cs 


32CD 


32D8 


S2ED 


S2FC 
3300 


3307 


I) 
i) 
~ 
| 


LOOPS331 


3348 


S38A 
3368 


CMPA @6002(B) 
IJNZ/JNE FS 
LDA @46237 
CMPA @5003(B> 
INZ/JNE ED 
LDA @6236 
CMPA @6004(B) 
INZ/ONE ES 
LDA #6235 
CMPA @6008(B> 
JNZ/INE DD 
LDA @6018(B) 
MOV A,ROA 
CMPA @46247 
IZ/JEQ 08 
LDA 86223 
BTJO %10,A,65 
MOV ROA,A 
STA 96247 
LDA @601B(B) 
STA 86223 
BTJO %20,A,05 
MOV “FF.A 
STA @6260 
LDA @601A(B) 
STA @6222 
LDA @621B 
DAC %01,A 
STA @421B 
JNZ/JNE 08 - 
LDA @621A 
DAC %01,A 
STA @621A 
CMP RO9,R17 
INZ/JNE O3 
MOV %FF,P17 
CALL @F3CS 
MOVD %6164,R48 
CALL @C116 
RETS 

MOV ROS,B 
LDA @6002(B) 
CMPA @6247 
JNZ/JNE 1D 
LDA @6003(B) 
CMPA @6246 
INZ/JNE 15 
LDA @601B(B) 
MOV R1B,B 
JNZ/JNE O€ 
MOV A,ROA 
LDA @6233 
JZ/JEQ 04 
CMP ROA,A 
INZ/JNE O3 
CALL @FSCS 
RETS 

MOV ROB,B 
LDA @6025(B) 
IMP E6 

LDA @6225 

INC A 
JNZ/INE F2 
DINT 

MOV %08,A 
TRAP-4 

MOV %FF,A 
TRAP-6 

DEC a 

CMP %EC,a 
JNZ/JNE FA 
MOV %OCC,A 
TRAP-6 

MOV 402.8 
ADD ROB,B 


1TO 3267 (RETS) 
$70 3267 (RETS) 
70 3257 (RETA 
3TO 3267 (RETS) 


;DIRECT COMPARISON 
3TO 329A 


3TO S2FF (RETS) 


37TO 32AD 


370 32C5 


3T0 32CD 


sGOSUB SUBS3SCS ‘CHECK IF VC2 CHAN AND IF AUTH.) 
FPP PE AEE HEHEHE SHH H HEHEHE HHH eeee ee eee 


$G08UB SUB116 
j (tata ------- K<< 
REFERENCED IN TABLES 18/19aeeauraeuass 


sDIRECT COMPARISON 


3}TO S2FF (RETS) 

s;DIRECT COMPARISON 

3TO 32FF (RETS) 

;TO S2FF (RETS> 

3TO 32FC (GOSUB TO TURN ON/OFF) 
3TO S2FF (RETS) 


1G608UB SUBSSCS (CHECK IF VC2 CHAN. AND IF AUTH.? 
3< 
sREFERENCED IN TABLES 18/198 88RRReereseE 


3TO JUMP TO S2ED (LOOP) 
sREFERENCED IN TABLES 18/19RRERRRSeeees 


3TO S2FF (RETS) 


3TO S313 (LOOP? 


3B IS STEPPED UP IN 2’S USING ROSSA ER ERR EEK TALL REET 


MOVD £6000 (Bd RES gee EEE HEHE tee eee ee eee te teeter eeee 


MOV %04,P10 
TRAP-7 

MOV %90,A 
TRAP-6 

MOV %S7,A 
TRAP-6 

MOV %37,A 
TRAP~-6 

DINT 

CALL aF4asi 
CALL @poAS 
MOV “FFA 
BTA @628B 
STA 96268 
STA @6260 
MOV %01,A 
STA 96253 

BR @FOES 

LDA @6225 

INC A 
INZ/JNE 39 
MOV ROS,B 
LDA @6238 
CMPA @6002(B) 
INZ/JNE 2F 
LDA 86237 
CMPA @6003(B) 
INZ/JNE 27 
LDA @6236 
CMPA @6004(B) 
INZ/JNE 1F 
LDA 96235 
CMPA @6005(8) 
INZ/INE 17 
MOVP %89,P00 
MOV %OB,A 
TRAP-6 

ADD %06,B 


;GOSUB SUBS431 
+;S508UB SUB10Aa8 


sSAME AS LOOP TO TRAP-O 
HREFERENCED IN TABLES 18/1988R82xrasees 
370 S38A (RETS) 


3TO 338A (RETS> 


3TO S38A (RETS) 
370 S38A (RETS) 


;TO 338A (RETS) 


MOVD £000 6B) , RIGS FHEHHH EE HEE EEE EH HEE HE HEH HEE HE ee Hee eee ete 


MOV %08,P10 
TRAP ~-7 


MOVD KZO0DO, RES FH EH HH EHH HEH HEHEHE HEHEHE EH EH EE HEE Hee ete 


MOVP %B9,P00 
RETS 

MOV ROB,8B 
LDA @601F(B) 
CMPA @6247 
INZ/JNE FS 
BR @F2FC 

MOV RO8,B 
LDA #6238 
CMPA @6002(B) 
JNZ/JNE E8 
LDA 96237 
CMPA @6003(B) 


§ €~---~------------ <<< 
jREFERENCED IN TABLES 18/193Ranaaxszes 


sDIRECT COMPARISON 
3TO SSBA (RETS) 
s;60TO 32FC 


370 S3BA (RETS>) 
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13224 
13226 
13229 
13232 
13234 
13237 
13240 
13242 
13245 
13248 
13250 
13253 
13255 
13258 
13260 
13261 

13263 
13267 
13268 
13271 

13274 
13277 
13280 
13283 
132686 
13288 
13290 
13293 
13296 
13299 
13301 

13302 
13304 
13307 
13310 
13315 
13314 
13330 
13346 

13357 
13359 
13360 
13361 

13365 
13369 
13379 
13372 
13374 
13376 
13378 
13379 
13360 
13381 

13383 
13385 
13387 
13371 

1DIFS 
13395 
13399 
13401 

13403 
13405 
134908 
13419 
13412 
13415 
13417 
13420 
13422 
13425 
13427 
13430 
134353 
13436 
13438 
13441 

13444 
13445 
13447 
13448 
13450 
13452 
13454 
13458 
13462 
13465 
13467 
13469 
13471 

13475 
13477 
13479 
13482 
134684 
13487 
13489 
13491 
13494 
13497 
13499 
13502 
13504 
13506 
13508 
13510 
13512 
13514 
13515 
13516 
13517 
13519? 
13521 

13523 
13525 
13527 
13529 
13532 
13533 
13534 
13535 
13538 
135490 
1IB4aZ 
13544 
13545 
13548 
13550 
13553 
13556 
13559 


33AS 
SSAA 
SIAD 
S3BO 
33B2 
3385 
3388 
SSBA 
33BD 
33c0 
33C2 
33cs 
3307 
SSCA 
33cc 
33CD 
S3CF 
33DS 
33D4 
33D7 
33DA 
33DD 
SSEO 
SSES 
SIE6 
SIEB 
SSEA 
SSED 
SS3FO 
3S3FS 
33FS 
S3F6 
33F8 
SIFB 
SSFE 

3401 

3402 
3412 
3422 

342C 
342F 
3430 
3431 

3435 
3439 
343A 
343C 
S43E 
3440 
3442 
3443 
3444 
3445 
3447 
3449 
344D 
344F 
3451 

3453 
3457 
34597 
3458 
345D 
3440 
3462 
3464 
3467 
3469 
346C 
S46E 
3471 

3473 
3476 
3479 
347C 
S47E 
3481 

3484 
3485 
3487 
3488 
3484 
348c 
3468E 
3492 
3496 
3499 
3498 
349D 
S49F 
34A3 
34a5 
3S4A7 
T4AA 
T4ac 
34AF 
34B1 

34B3 
3S4B6 
34B9 
34BB 
34BE 
34CO 
34C2 
3404 
406 
34C98 
34TA 
34CB 
34cCc 
34CD 
S4CF 
3401 

34D3 
3405 
3407 
3409 
24DC 
340D 
S4DE 
34DF 
T4E2 
S4E4 
T4E6 
34E8 
T4E9 
3S4EC 
S4EE 
34F1 

34F4a 
34F7 


SUBSSCS 


3SFO 


TABLE21 
TABLE22 


TABLE2S 
TRAP-10 


SUBS431 


343A 


TRAP~1 


34C0 


34F4 


JNZ/JINE EO 
LDA 86236 


CMPA @6004(B) 


INZ/JNE DB 
LDA 862355 


CMPA @6005(B) 


JNZ/JNE DO 
LDA @600C(B> 
CMPA @6247 
JNZ/INE C8 
BR @F2FC 
MOV RO?,B 
LDA @F410(B> 
JNZ/INE 01 
RETS 

MOV A,RO? 


MOVD “460FF,R4A 


DEC A 

ADD ROO,R4A 
ADC %00,R49 
LDA @F402(B) 
ADD ROO,R4A 
ADC %00,R49 
LDA @F41E(B) 
MOV ROS,B 
ADD ROO,B 
MOVP %08,P10 
MOVP %89,P00 


LDA @6000(B)_ 


STA ER4A 

DEC B 

DECD R4A 
DINZ RO,FS 
MOVP %99,P00 
MOVP %409,P10 
RETS 


00, 63,07,6A,1D, 


MOV @,B 
RETS 


MOVD %O7FF,.R4A 
MOVD %67FF,R35 


CLR A 

STA §R3S 
DECD R35 
DECD R4A 
3C/JS FB 
RETS 

PUSH A 
PUSH B 

MOV RO4,A 
INZ/JNE 49 


3TO S3B8A (RETS) 


3TO SSBA (RETS? 


3TO S38A (RETS) 


s;DIRECT COMPARISON 


3TO 338A (RETS? 
360TO LOOPS2FC 


;LOOKUP TABLE22 


(CHECK FOR SER NOD 7?) 


3TO SSCD (EXPAND THE LOOP IF VC2 CHAN) 


ere 


PEP EE EEE HELE PEE EEE EEE EEE He ee eee eee te tete 


3;ROO = REG A 


;LOOKUP TABLE21 ‘(CHANGED TO 0’S WAS DEAUTHORIZED) 


yROO = REG A 


;LOOKUP TABLE2S 


;ROO = REG A 


3TO SSFO (LOOP) 
#TURN OFF OR ON? 
3; TURN OFF OR ON? 
(Seo SSSss-57°"7" 
86,3A,90,00,00,E5,F9,00,Cé& 
07,07,16,16,1D,1D,25,25,00,00,14,07,00, 1F 


07,07,1A.1A,1D, 1D, 25, 25,00,9 
Loa afacziss§ °;LdoKue tasle 


0,14,0B,00,1F 
2i 


(DEAUTHORIZED ME WHEN THIS WAS REPLACED WITH O'S; 


PPE EEEEE TEEPE EEE EE EEE EE HEE HEHE EH eee He tH ett 
PPE FEE EEE PEE EEE TEETH EE EHH FH HP eet Hee se 


3TO S435A (LOOP) 
| eh a ata 


17T0 3492 


BTJOP %401,P1A,73;TO 3S4CO 


MOVP P18,B 
CMP %90,B 
INZ/JNE OA 


MOVD %#60CC,.R3S 


LDA ER3S 
INZ/INE 72 
IMP 2A 
MOVD R31,R33 
LD& R31 
JZ/JEQ 23 
LDA @621D 
DAC %01,A 
STA @621D 
IJNZ/JNE O08 
LDA @621C 
DAC %01,A 
STA @621C 


170 345D 


PEFR EEE EEE EEE EEE EE HHH Ht Hee eee eee 


370 34CD 


sJUMP TO 3487 


;TO 3487 


3T0 3476 


BTJZ %40,B,54 ;TO 34CD 


SUB %33,R31 
JC/IS O38 

MOV 499,P31 
MOVD R31,R33 
CLR A 

STA sR3S 

MOV B,A 

INC R33 

STA RSS 

INC RO4 


:TO 3481 


BTJZP %04,P1A,32;T0 3400 
BTJOP %01,P1A,09;TO 349F 


CMP %432,RO4 


JC/IS 32 ;TO0 34cD 
MOVP P18,A 

IMP E9 ;TO 3588 
BTJOP %02,P1A,1D;TO 34C0 
MOV %FF,A 

MOV A,ROS 

CMP <CC,RS3S 

JNC/JL OS 3TO 34B1 
STA @60CC 

IMP OF ;JUMP TO 34C0 
STA ®R31 


ADD %33,R31 
CMP %CC,RS31 
JNZ/JNE OS 
MOV %00,P31 
IMP 00 
MOVP P18,A 
CLR ROG 
MOVP P00,B 
@ND %D7,B 
MOVP B,POO 
PoP 8B 

POP A 

RETI 

MOV RO6,B 
AND %47F,B8 
MOVP B,PIC 
MOV ROS,B 
MOVP B,PIC 
IMP E9 
MOVP %00,P10 
EINT 

PUBH A 

PUSH B 

LDA 940CC 
MOY 8,RO3 
MOV R18,A 
JZ/JEQ oC 
DINT 

LDA @6226 
DAC %01,A 
BTA $6226 
BR @Fi138 
MOV %FF,P18 
MOV R13,B 


370 34CO 


PIUMP 00 PIPPPPPAPPPPIAIPIPPPPPIPPP PIPPI IPP PP 


s;JUMP TO 34C2 


1TO S4P4 


360T9 


TRAP 14/2 
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13561 
13564 
13565 
13568 
13569 
13571 
13574 
13577 
13579 
13581 
13582 
13588 
13594 
13597 
13600 
13603 
13606 
13609 
13612 
13615 
13617 
13620 
13621 
13623 
13625 
13627 
13630 
13632 
13635 
13638 
13641 
13644 
13646 
13647 
13649 
13651 
13654 
13656 
13659 
13661 
13663 
13665 
13667 
13668 
13670 
13672 
13675 
13478 
13680 
13683 
13686 
13689 
13691 
13693 
13696 
13698 
13700 
13702 
13704 
13706 
13708 
13710 
13712 
13715 
S37 27: 
13718 
13720 
13722 
13724 
13726 
13729 
13731 
13734 
13737 
13740 
13743 
13745 
13747 
13749 
13751 
13753 
13755 
13757 
13761 
13764 
13764 
13769 
13773 
13776 
13778 
13781 
13784 
13786 
13789 
13792 
13794 
13796 
13799 
13802 
13804 
13806 
13809 
13811 
13814 
13818 
13820 
13822 
13824 
13826 
13829 
13831 
13834 
13836 
13839 
13841 
13844 
13846 
13849 
13851 
13854 
13857 
13859 
13860 
13863 
13866 
13869 
13871 
13873 
13874 
13878 
13880 


34F9 
S4FC 
3S4FD 
3500 
3501 
3503 
3506 
3509 
3508 
3S0D 
SSOE 
3514 
351A 
3S51D 
3520 
35235 
3526 
3529 
352C 
SS2F 
3531 
3534 
3535 
3537 
3539 
353B 
ISSE 
3540 
3543 
3546 
3549 
354C 
3S54E 
SS4F 
3551 
3553 
3556 
3558 
3558 
3S5D 
3S5F 
S561 
3363 
3544 
3566 
3568 
3568 
SSE 
3570 
3573 
3576 
3579 
3578 
3570 
3580 
3582 
3584 
3586 
3588 
358A 
358c 
SS8E 
3590 
3593 
3595 
3596 
3598 
3SS7A 
359C 
SS9E 
SSA1 
SSAS 
S5A6 
35Aa9 
SSAC 
SSAF 
SSB1 
SSBS 
3585 
3587 
3589 
35BB 
358D 
35C1 
35c4 
35c6 
35c9 
SSCD 
3SDo0 
3SD2 
3505 
3508 
35DA 
350D 
3SEO 
SSE2 
3SE4 
SSE7 
SEA 
SSEC 
SSEE 
SSF 
3SFS 
3SF6 
SSFA 
SSFC 
SSFE 
3600 
3602 
3605 
3607 
360A 
360C 
360F 
3611 
3614 
3616 
3619 
3618 
S61E 
3621 
3625 
3624 
3627 
362A 
362D 
362F 
3631 
3634 
3636 
3638 


TABLE24 
TABLE2S 
LOOP351Aa 


3534 


3549 


3558 


3565 


3584 


SSA? 


SUBSSDS 


LDA @FSOE(B) 
PUSH A 

LDA @F3514(B) 
PUSH A 

MOVP P1C,A 


BTJZ 4RO1,A,07 


CMP %78,R22 
JZ/JEQ O92 
INC R22 
RETS 


;LOOKUP TABLE24 
;LOOKUP TABLE2S 


3TO SSOD (RETS) 


3TO 3500 (RETS? 


F5,F5,F5,F5,F5,F5 ;LOOKS LIKE THE MSB OF ADDRESS 
34,49,63,84,A9,58 ;LOOKS LIKE THE LSB OF ADDRESS 


LDA @Fa22 
LDA @F7E6 
AND %SF,RO6 
OR %80,R06 
AND %FC,ROS 
OR %01,R06 
ORP %04,P04 
CLR R12 

BR @FS5D5 

RR A 

JNC/IL 09 
CLR RO4 

CLR ROS 

MOV Z01,P13 
IMP 2E 

ORP %02,P04 
OR %40,RO06 
BR @F5D5 
CMP %00,RO5 
JNZ/JNE 1A 
RR A 

JC/IS OF 
INC R12 

CMP 419,R1i2 
INC/JL O09 
ORP %02,P04 


JNG/IL 15 
CLR ROG 

MOV 493,P13 
ANDP %FD,PO4 
CLR R12 

OR 490,RO06 
AND 4BF,RO4 
ORP %04,P04 
JMP 5A 

INC R12 

CMP %10,R12 
INC/JIL 53 
JMP D4 

CMP %47,A 
Jovas oD 
MOV R1D,B 
AND 47F,B 
CMP %04,B 
INZ/JNE 0S 
MOV %04,Pi3 
IMP 40 

RR A 

JNC/JL 04 
CLR R12 

IMP 39 

INC R12 

CMP %OB,R12 
IJNC/IL 32 
MOY %02,P13 
BR @FSiaA 
ANDP %FB,.P96 
ORP %04,P06 
AND %FE,A 
CMP %51,A 
JC/JS BS 
MOV R1D,B 
AND 47F,B 
CMP “04,8 
JNZ/JNE AB 


;GOTO SUBSSDS 
;REFERENCED IN TABLE 24/25 
370 3540 


3;TO 356E 


;G0TO SUBSSDS 

;REFERENCED IN TABLE 24/25 
iTO 35698 

3;TO 3SSF 

;TO 3561 

}REFERENCED IN TABLE 24/25 
;T0 SS1A ‘(LOOP> 
;TO 35D5 


REFERENCED IN TABLE 24/285 
370 3578 


;TO SSDS 


370 3505 

1T0 3558 (LOOP? 

}REFERENCED IN TABLE 24/25 

3TO 3595 

3R1D CONTAINS THE AUTH CODERAeeaaeeeseeaereasesess 
1T0 3595 

;TO 35D5 

;TO 359C 


aTO 35D5 


3TO 3505 


360TO LOOPSS1A 
;REFERENCED IN TABLE 24/25 


3TO 3568 (LOOP) 
3R1D CONTAINS THE AUTH CODEREEEUREREEERE TERETE TE 


3TO 3568 (LOOP) 


BTJO %20,R20,05;TO 35C6 


ANDP %FB,PO4 
IMP OS 
ORP %04,P04 


3TO 38C9 


BTJO %40,R20,05;TO 35D2 


AND %EF,RO6 
IMP O3 

OR %10,R06 
CMP %03,R13 
IJNC/JL iC 
LDA @6220 
CMP ROO,R43 
JNC/JIL OA 
INZ/IJNE 12 
LDA @6221 
CMP ROO,R44 
JC/J8 OA 
MOY R43,a 
BTA @6220 
MOV R44,A 
STA @6221 


MOVD %0000,R44 


MOV RO6,B 
MOVP B,P1C 
MOV ROS,B 
JNZ/IJNE OS 
BR @F701 
CLR ROZ 

LDA @621F 
DAC %01,A 
STA @621F 
INZ/JNE 08 
LDA @621E 
DAC %01,A 
BTA @621E 
MOV %08,.B 
LDA @60CC(B) 
STA @622B(B) 
DINZ B,FS 
CLR A 

STA @60CC 
STA @60CD 
LDA @622E 
AND %23,A 
XOR %20,A 
CMP %04,R13 
JZ/IEQ 02 
AND %DF,A 
MOV RO6,B 


370 35DS 
3TO SSF6 


3TO SSEC 
3TO SSFSé 


370 3SF6 


PPP EERE EEE EEE EEE EE Ee HEE Hee ete eet eee tet 


3TO 3605 
;G0TO 8U83701 


3TO 3619 


1B=8 

+VALUES FROM HERE ARE MOVED TO 622B(B) 

$6225 622E 18 WHERE THE AUTH LEVEL IS STORED 
;LOOP BACK TILL DONE 


3MEM LOC OF AUTH CODE INFORRERERE REE EERE EEE ES 


3TO 3638 
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SesA 
363C 
S463E 
3640 
3643 
3646 
3649 
364C 
364F 
3652 
3655 
3658 
365A 
365C 
365D 
3660 
3662 
36655 
3666 
3658 
366A 
366C 
366F 
3672 
3674 
3677 
367A 
347C 
TO7E 
3651 
7684 
3686 
3489 
345C 
368F 
3éFl 
3694 
3697 
3698 
BT-ha-] 
369D 
SOIF 
36A2 
S6A4 
36A7 
SéAaP 
3S6ac 
S6aF 
36B2 
36B4 
36B7 
36B9 
36BC 
Sé6BE 
36C1 
36c4s 
36C7 
Sé6CA 
36CD 
SéCr 
36D2 
36DS 
36D4 
36D6 
36D86 
36DB 
S6DE 
S6El 
Sé&E4 
3S6E7 
S6EA 
3S6EB 
Sé6ED 
S6FO 
SOF 1 
SéFS 
S6F6 
SOF? 
SéFB 
SOFE 
3701 
3703 
3705 
3707 
370A 
370B 
370C 
370F 
3711 
37135 
3715 
3717 
3718 
3719 
3714 
3718 
371C 
71D 
S71E 
3720 
3721 
3722 
3724 
3727 
372A 
372C 
372E 
3731 
3732 
3735 
3737 
373A 
373B 
S73E 
3740 
3743 
3744 
3747 
374A 
374D 
374F 
3731 
3754 
3756 
3737 
3739 
375A 
375D 
S75F 
3761 
3764 


SUB3701 


AND %DC,B 

OR ROO,B 

HOV B,ROS 

LDA @622E 

AND %7B,RO7 
BTIO %40,A,03 
OR %80,RO7 
BTIO %04,A,03 
OR %04,RO7 
LDA @622E 
BTJO %418,A,02 
IMP 3A 

CLR R1B 

CLR A 
STA @6252 
MOV R15,A 
MOV %01,PO0E 
RL A 

RLC ROE 

MOV ROS.B 
AND %F3,B 
LDA @622F 


BTJZ %R40,A,0A 


OR %404,B 
LDA 
BTIZ 
XOR %0C,B 
MOV B,ROS 
MOV %484,P1D 
LDA @622F 
AND %07,A 
STA 94254 
LDA @46253 
CMPA g4254 
JC/I8 O38 
MOY 483,P1D 
LDA @622D 
CLR B 


BTJZ %R20,A,02 
#O3,B 


' 
Rie 


LDA @6131(B? 
MOV A,R10 
LDA 9622D 


LDA @6233 
CMPA @6136(B) 
JNZ/JNE 1B 
CMPA @615D(B) 
INZ/JINE 16 
LDA 9413A(B) 
XOR R10,A 
BTJO %£0,A,0E 
MOV “FF,P1E 
LDA @622E 
BTJO %18,A,05 
LDA @6131(B) 
IMP OS 

LDA @622D 
CLR B 
TSTA/CLRC 
JPZ/IGE O02 
MOV %63.B 
LDA @6119(B) 
STA 20118 
LDA @611A(B) 
STA 96246 
LDA @6223 
AND %FC,RO7 
TSTA/CLRE 
IN/ILT OF 
OR %01,RO7 
RL A 
JPZ/JGE OS 
OR %02,RO07 
CMP %01,R11 
JZ/IJEQ 4C 
MOV %04,P11 
BR @F7DE 
DEC R11 
JZ/JEQ 02 
BR &R39 

LDA @60CD 
MOV A,B 

CLR A 

STA @60CD 
CMP %90,B 
INZ/JNE O02 
CLR ROZ 
MOVP P1C,B8 
TSTA/TLAC 
RRC B 

DEC B 

RR B 

RR B 

RR B 

INC B 

MOV ROS,A 
RR A 

RLC B 

AND 407.8 
LDA @DDS4(B> 
CMP ROO,RO2 
JC/J8 18 
INC ROZ 

LDA @6230 
INC A 

STA @6230 
INZ/JINE 10 
LDA @6231 
INC A 

STA @6231 
INZ/JNE 97 
LDA @6232 
INC A 

STA @46232 
MOV %404,P11 
LDA @45230 
AND %1F,A 
JNZ/JNE O03 
CALL @CAIA 
MOV %0E,A 
TRAP-6 

MOV RO7,A 
TRAP-6 

LDA @622B 
JZ/JEQ 02 
BR &R37 

LDA 96233 
MOV R16,R34 


26278 
HROL,A,92 


3MEM LOC OF AUTH CODE INFORSERRRE TERETE ERTS 


;TO 364Cc 
1TO 3652 


3MEM LOC OF AUTH CODE INFOREES EERE ETEK EERE ARTE 


;TO 345A 
3TO 3694 


;TO 367C 


7TO 3670 


iDIRECT COMPARISON 


;TO 3694 


3TO 369D 


TO 36CF 


3TO SéCF 


3TO 36CF 


3TO S6CF 


;MEMLOC OF AUTH CODE INFOSREKEERSERERREEHEEES 


3;TO 36CF 
1TG 3602 


;TO 3608 


1TO 36FO 


37T0 S6F6 


TO 3747 
;GOTO SUBS7DE 
3T0 3707 


s;CALLS AUTH PROCEDURE 


TO 3715 


sLOOKUP TABLE14 


;TO 3747 


;TO 3747 


TO 3747 


;T0 3754 
1GOSUB SUBAILA 


3TO 3761 


sONE VALUE OF THIS 18 174 


(RESET TO FSSB IN SEVERAL LOCATIONS) 
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14183 3767 MOV A,R16 


14185 3769 KOR ROO,R34 

14188 376C JZ/JEQ OB 3T0 3779 

14190 3768 CMP ROO,RS4 

14193 3771 JZ/JEQ 06 3T0 3779 

14198 3773 CALL @Fa22 ;608UB SUBS822 

14198 3776 CALL @F7F1 ;G08UB SUBS7TFI 

14201 3779 MOV Ri5,R10 

14204 377C LDA @622D 

14207 377F MOV 4,R15 

14209 3781 XOR ROO,R10 

14212 3784 AND %E0,R10 

14215 3787 MOV R14,B 

14217 3789 LDA @622E ;MEM LOC OF AUTH CODE INFORSeeaeeeaaseseresess 
14220 378C AND %18,A 

14222 3788 MOV A,R14 

14224 3790 INZ/JNE 19 ;TO 37AB 

14226 3792 MOV R34,A 

14228 3794 JNZ/JNE OD 5T0 37AS3 

14230 37976 MOV R10,a 

14232 3798 JNZ/JNE OS 5TO 379F 

14234 379A TSTB 

14235 3798 INZ/JNE O02 370 379F 

14237 379D BR 4#R37 ;ONE VALUE OF THIS IS 174 (C174) 
14239 379F LOOP379F MOV ZFF,A 

14241 37A1 MOV A,RI7 

14243 37A3 MOV %FF,A 

14245 37A5 STA 86279 

14248 37A8 BR @F999 360TO SUB3999 

14251 37aB LDA @6253 = 

14254 37AE CMPA @6254 7DIRECT COMPARISON 

14257 3781 IN/ILT 2B 3TO 37DE 

14259 37B3 LDA @622E 3MEM LOC OF AUTH CODE INFORESE eRe ER eeaereasss 
14262 3786 AND %18,A 

14264 3788 CMP %18,A 

14266 37BA JNZ/JNE OS 370 3701 

14268 37BC MOV %10,A 

14270 37BE TRAP-6 

14271 37BF IMP 1D 370 37DE 

14273 37C1 BTJO %10,A,05 ;LOOKS LIKE THE TEST FOR 622E = 10 (MEANS FIXED! !!ttittrrtrtrrrereres) 
14276 3704 MOV %08,A 

14278 37Cé TRAP-6 

14279 37C7 JMP 15 370 37DE 

14281 37C9 MOV %05,A 

14283 37CB TRAP-6 

14284 37CC MOVD ZEZSOLRSS fF FHCCEHESEE FEES EE PEPE TEE EEEE SELES ETET ESS 
14288 37D0 MOV %03,P10 

14291 37D3 TRAP-7 

14292 37D4 IMP O08 370 37DE 

14294 37D6 TRAP-? POP RSB 

14296 37D8 POP RSA 

14298 37DA LOOPS7DA MOVD “4FBSB,RSF? PFEFFER LEOESESSEEEE SEF ESLEE EEE EE EP EE POLS S 
14302 37DE SUB37DE POP B 

14303 37DF POP A 

14304 37E0 MOVP %01,P10 

14307 37E3 CLR R18 

14309 37E5 RETI , 
14310 37E6 CLR A \~ =F) 
14311 3767 STA @6235 \\ A 
14314 37EA STA 9622D \\ 
14317 37ED CLR R16 o) ° 
14319 37EF CLR ROS ol 

14321 37F1 SUB37F1 CLR A 0 Xx 

14322 37F2 STA 96136 5 

14325 37F5 STA @615D (le 

14328 37F8 STA 86199 

14331 37FB STA @61C0 

14334 37FE STA @615F 

14337 3801 BTA @61C2 

14340 3804 STA @61E7 

14343 3807 STA @6219 

14346 380A STA @4227 

14349 380D CLR R1D 3;R1D CONTAINS THE AUTH CODESRSSEKEETESESETRE KEKE ES 
14351 380F CLR R22 

14353 3811 CLR R1E 

14355 3813 MOV %20,A 

14357 3815 STA #6131 

14360 3818 STA @613A 

14363 3818 STA 96194 

14366 IB1E BTA @519D 

14369 3821 RETS 3 6 ooo orn <<< 

14370 3822 SUBS822 MOY 4OF,A 

14372 3824 CALL @C392 }SAME AS GOSUB TRAP-17 

14378 3827 MOVD %COD7, RIB pret eet tress eset eet error ress eso orseees (MIGHT BE THE FA TURN ON FUNCTION? 
14379 382B CLR R19? 

14381 382D CLR A 

14382 382E STA 96252 

14385 3831 STA 86227 

14388 3834 INV A 

14389 3835 BTA 86279 

14392 3838 CLR R1B 

14394 383A RETS p<------- --------- <<< 

14395 3838 3a3B CMP %O3,R13 ;CALLED AS ADDRESS IN RS38,RSP 

14398 3B3E INC/JIL FE 37DE (LOOP? 

14400 3840 BR #R3B $77777? (DON’T KNOW WHERE TO ? 

14402 3842 TRAP-8 POP R37 

14404 3844 POP R36 

14406 3846 IMP 96 ;JUMP TO 37DE (LOOP) 

14408 3848 TRAP-9 

14405 3849 JMP FD ; JUMP TO 3848 (LOOP) 

14411 3848 BTJZP %02,P11,4F;TO 389E 

14415 384F EINT 

14416 3850 PUSH A 

14417 3851 PUSH B 

14418 3852 MOVP P16,B 

14420 3854 CMP %7E,B 

14422 3856 INZ/JNE 07 i7TO 38S5F 

14424 3858 MOV %FF,A 

14426 385A STA 26225 

14429 385D JMP 3D 370 389C 

14431 385F CMP %7D,B 

14433 3861 JNZ/JNE O3 ;TO 3866 

14435 3863 BR @F331 360TO LOOPS331 

14438 3866 CMP %20,B 

14440 3868 IC/IS 32 +TO 389C 

14442 386A CMP %OF,B 

14444 386C IZ/JEQ OF 3TO 3877 

14446 386E CMP %OC,B 

14448 3870 JZ/IJEQD OS ;TO 3877 

14450 3872 LDA @67E5 

14453 3875 JNZ/JNE 25 3TO 389C 

14455 3877 LDA @DD66(B) ;LOOKUP TABLE15 (A WILL = 0,1,2 OR 4? 
14458 387A BTJZ %ROZ,A,O2 ;TO 387F 

14461 387D CLR R19 

14463 387F AND %DF,RIF 

14466 3882 BTJO %01,A,08 ;TO 388A 

14469 3885 CMP %03,R13 

14472 3888 JNC/IL 12 3TO 389C 

14474 388A LDA @DD46(B) ;LOOKUP TABLE15 (A WILL = 90,1,2 OR 4) 
14477 388D BTJO %04,A,0C 370 389C 


14480 3890 DINT 
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14481 
14484 
144846 
14489 
1449} 
14492 
14493 
14494 
14495 
14497 
14499 
143501 
14503 
14505 
14507 
14509 
14511 

14513 
14515 
143517 
14519 
14321 

145235 
14525 
143527 

14529 
14331 

14533 
14535 
14537 
143539 

14541 

14544 

14546 
143548 
14850 
143553 

143555 
14557 

143560 
14562 
14564 
14567 

14370 
14571 

14374 
14577 
14579 
14582 
14584 
14586 
14588 
14590 
1435972 
14594 
14596 
14597 
14899 
14602 
14604 
14606 
14609 
14610 
14613 
14616 
14618 
14620 
14622 
14624 
14626 
14628 
14471 
146353 
14434 
14637 
14635 
14641 

14644 
14645 
14648 
14650 
14652 
14634 
14656 
14659 
14662 
14664 
14667 
14668 
146790 
14672 
14674 
14676 
14679 
14661 

14684 
14685 
14686 
14687 
14688 
14691 

14693 
14695 
14698 
14700 
14702 
14703 
14706 
14710 
14711 
14713 
14716 
14718 
14720 
14722 
14724 
14727 
14729 
14731 
14733 
14735 
14736 
14738 
14741 

14743 
14744 
14745 
14746 
14749 
14752 
14734 


3891 
3B94 
3B96 
389F 
3898 
389C 
389D 
387E 
389F 
38A1 
3BAS 
38AS 
38A7 
3BA9 
38AB 
3BAD 
SBAF 
38B1 

38B3 
seas 
38B7 

3889 
38BB 
3BBD 
38BF 

3801 

38C3 
38cs 
3807 

38c9 
38CB 
38cD 
38D0 

38D2 
38D4 

38D6 
38D9 

38DB 
38DD 

38E0 
3B8E2 
38E4 
38E7 
3BEA 
38EB 
38EE 
3OF1 

3BF3 
38F6 
3eFB 
38FA 
3BFC 
3BFE 
3900 
3902 
3904 
3905 
3907 
390A 
390C 
390E 
3911 

3912 
2915 
3918 
3918 
391C 
SF1E 
3920 
2922 
3924 
E327 
3929 
392A 
392D 
I92E 
3931 

Teta 
3935 
3938 
393A 
393C 
393E 
3940 
3943 
3946 
3948 
3948 
394C 
394E 
3950 
3952 
3954 
3957 
3939 
39SC 
395D 
39SE 
39SF 
3940 
3963 
3945 
3967 
396A 
396C 
396E 
396F 
3972 
3976 
3977 
3979 
397C 
397E 
3980 
3982 
3984 
3987 
3989 
398B 
3958D 
398F 
3990 
2992 
3995 
3997 
3998 
3999 
399A 
399D 
39A0 
39A2 


S89F 
SBAS 
3BA7 
3SAB 
SSAF 
S8BS 
38B7 
38SBB 
SSBF 
38cs 
38C7 
38cB 


38D2 


S8Fs 
S8FSé 


371A 


TFS4 


3943 
39746 


SUB3950 


TRAP-20 


3S96F 


3976 


TRAP-19 


SUBS990 
3992 


LOOPsS993 


LDA @DD846(B) 
MOV A,RSB 
LDA @DDAS(B) 
MOV A,R3? 
EINT 


oMP 
MOV %09,A 
gMP OB 

MOV %408,A 
IMP 02 

MOV %OB,A 
CMP %01,R19 
JNZ/INE 21 
MOY R19,B 
JZ/JEQ 1D 
CMP R1A,R19 
JZ/JEQ 18 
MOV R1A,B 
STA @6255(B) 
ING R1A 

MOY %436,B 
CALL @FgsSO 
LDA @627A 
INC A 

STA 8627A 
CMP %01,R19 
JZ/JEQ 27 
BR @F7DA 
MOV R19,8 
JZ/JEQ F9 
MOV %0C,A 
MOV RSF,B 
IZ/IJEQ D2 
MOV R1A,B 
JZ/JEQ EF 
DEC B 

MOV %FF,A 
STA @6255(B) 
MOV B,RILA 
MOV %2E,B 
LDA @627A 
DEC A 

STA @627A 
CALL @F9SO 
IMP D9 

MOV R19,B 
JZ/3EQ DS 
CLR RIP 

MOV RSF,B 
JZ/JEQ CF 
MOVD R40,R38 
IMP CA 

CLR A 

BTA #4252 
INV A 

BTA @67ES 
BR @CCED 
CLR A 

STA @67ES 
MOV R1D,A 
AND %7F,A 
CMP %04,A 
JZ/JEQ Fl 
BR @CCD7 
MOV %03,P13 
MOV %OF,A 
CALL @C392 
TRAP-9 

JMP FD 

IMP F6 

MOV RSF,A 
JZ/JEQ OA 
CMP %01,R19 
JZ/JEQ OS 
LDA @627A 
XCHB A 
TRAP-12 
RETS 

XCHB A 

STA @627A 
MOV B,R19 
CLR RIA 
CALL @F990 
POP R40 

POP RSF 

CLR A 

STA @62S5F 


MOVD Z1ASE,R42 


TRAP-9 

MOV R1A,A 
CMPA @625F 
INZ/JNE Fi 
DECD R42 
JC/IS F4 
CLR R19 

BR @CE15 
MOV %01,A 
MOV A,RIP 
CLR RIA 
CLR RSF 
MOV 4,B 
MOV %FF,A 
STA @6254(B) 
DINZ B,FB 
RETS 
TRAP-8 

CLR A 

STA 96224 
STA @6228 
CLR R1B 
CLR R1D 


sLOOKUP TABLE16! 
1€--RSB+RSF CONTAIN ADDRESS FOR ROUTINE TO RUN 
;LOOKUP TABLE171 


s;REFERENCED TABLES 
s;JUMP TO 38D2 
;REFERENCED TABLES 
poumMP TO 38D2 
REFERENCED TABLES 
sJUMP TO 38D2 

s REFERENCED TABLES 
; JUMP TO 38D2 
s;REFERENCED TABLES 
s JUMP TO 38D2 
PREFERENCED TABLES 16717°%*s t* ss tex seee 
3; JUMP TO 38D2 

sREFERENCED TABLES 16/17¢°*testtrsesenes 
7JUMP TO 38D2 

PREFERENCED TABLES 16/17 °° < ss 35.2452 585 
sJUMP TO 38D2 
;REFERENCED TABLES 
3JUMP TO 38D2 
CREFERENCED TABLES 16717°* 9s sss steeds 
7JUMP TO 38D2 

pREFERENCED TABLES 16/17°*8t sss eeeseass 
;JUMP TO 38CD 

3; REFERENCED TABLES 


16/17** ‘KEYBOARD (O-et all) ROUTINES** sss eesscee 
LO/LT Uta sacaaane 
LSSUT UAT tts 
LS/LT IVA estesaccas 


LO/LT UAT eres 


LO/LT ATI t sss seeasras 


WITTER E 
;TO 38F3 
;TO S8FS 
;TO S8FS 


;GOSUB SUBS950 


3TO 391A 
}G0TO LOOPS7DA REFERENCED TABLES 14/17°* 
;REFERENCED TABLES 16/17°**3ttsttrtesess 


370 SEFS (LOOP? 
3TO 3S8D2 (LOOP) 
370 SBFS (LOOP? 


;SO8UB SUBS950 

; JUMP TO SBF (LOOP) 

PREP ERENCED TABLES 167227" . 5 5S es 
3TO SBFS (LOOP) 


370 36FS (LOOP) 
JUMP TO SSFS iLOOP? 
sREFERENCED TABLES 16/17 


3G60TO SUBCED 
SRECERENCED STABLES 14/17 0S ee 


RID CONTAINS THE AUTH CODERREEEEREKERTET ERE R ETE 


1TO 3931 (LOOP) 

3GOTO SUBC7D(ALSO AS A VECTOR IN TABLE 16/17 MAY BE THE TURN ON FUNCTION? 
}REFERENCED TABLES 16/17° tt tsstesreess 

;REFERENCED TABLES 16/17°**s tess tt tess 

;SAME AS GOSUB TRAP-17 


s;JUMP TO 394B 
s;IUMP TO 3946 


(LOOP? 
(LOOP) 
3TO 3S9SE (RETS) 


3TO SSE (RETS) 


< qe<< 
yHOW MANY ITEMS TO SHOW ON SET-UP MENU 


+GOSUB 3990 


3 A=0 

PPE EH HE EEE EEE HE EEE HEH HEHE HHH HH eH epee eese 
;DIRECT COMPARISON 

3TO S9S6F (LOOP) 

3TO 3976 (LOOP) 
3G60TO SUBE15 


+R1A=0 
tRSF2#O 


370 S792 (LOOP? 


R1iB=#0 
R1 


ss 
zi 
i , call 
were a eee 
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sy f ; {s ie eis ae 
, aN ' tO) See eyo 28 
= 2, SAUX Me yee? DRY 2 Vee Fel BOA RL RET OEY 4 oY Clee er DERE (5 i ra 
+N SERRE Te CS Lae RRR ee 
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Cl-Meay CUNGE BA BORE 
/ (770.4) Sree OF 
( AF 
; Paes 
a "3 > Phe e 
; Aue - 128 PO ee OF 
‘ 7 : . , ai 
iW, , J 
' : } ; can 
nf 1 2 - oe 
. eR ed ie 50k 
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14756 3904 MOV R1S,A 

14758 39A6 MOV %01,F0E 

14761 39a9 RL A 

14762 390A RLC ROE 

14764 39AC MOV %02,B 

14766 39AE RL A 

14767 39aF RL A 

14768 39B0 RLC B 

14769 39B1 MOV B,ROF 

14771 39B3 CALL @FCOA ;SCSUB SUBSCOA 
14774 39B6 MOV ROF,B 

14776 39BS TRAP-10 

14777 39B9 LDA @6113(B) 

14780 39BC AND %07,A 

14782 39BE STA @6254 

14785 3901 LDA @6119(B? 

14788 3964 CMPA @6233 ;DIRECT COMPARISON 
14791 39C7 INZ/JNE CF ;TO 3998 (LOOP? 
14793 39C9 LDA @6114(B) 

14796, 39CC MOV A,R37 

14798 39CE MOV R15,A 

14800 39D0 XOR R37,A 

14802 39D2 BTJO %60,A,C3 ;TO 3998 (LOOP) 
14805 3905 LDA @6100(B) 

14808 39D8 MOV A,R37 

14810 39DA LDA @$101 (B> 

14813 39DD MOV A,R3S 

14815 39DF MOV ROE,B 

14817 39E1 SUB %02,B 

14819 39ES TRAP-10 = 

14820 39E4 LDA @6100(B) 

14823 39E7 CMP R37,A 

14825 39€9 INZ/INE AD 3;TO 3998 (LOOP) 
14827 39EB LDA #6101 (B? 

14830 39EE CMP R36,A 

14832 39FO INZ/JNE AS ;T0 3998 (LOOP? 
14834 39F2 LDA #6212 

14837 39FS CMP R37,A 

14839 39F7 INZ/JNE 9F ;TO 3998 (LOOP) 
14841 39F9 LDA @6213 

14844 39FC CMP R36.A 

14846 39FE INZ/JNE 98 ;TO 3998 (LOOP? 
14848 3A00 MOV ROF,B 

14850 3a02 TRAP-10 

14851 3a03 LDA @624B 

14854 3Aa06 CMP ROO,R16 

14857 3A09 INZ/JNE 25 ;TO 3Aa30 

14859 3AOB LDA @45109(B? 

14862 SAOE CMPA @624C ; DIRECT COMPARISON 
14848 3All IJNZ/JNE 19 TO 3A2C 

14867 3A13 LDA @610A(B) 

14870 3A16 CMPA §624D }DIRECT COMPARISON 
14873 3A19 INZ/INE 11 1TO0 3Aa2C 

148783 3A1B LDA @610B(B) 

14878 SALE CMPA @624E ;DIRECT COMPARISON 
1468: 3az1 INZ/INE OF 170 3a2C 

14883 3A23 LDA @6190(B> 

14886 3A26 CMPA g624F ;DIRECT COMPGORISON 
14889 3a29 BR @FaB2 160 TO SUBSAB2 
14892 3a2C 3azC CLR A 7A=0 

14893 3A2D STA 96248 

14896 3a30 3az0 LDA 96251 

148997 3A33 XOR R15.4 

149701 3A35 BTJO %60,8,2B ;T0 3A63 

14904 3A38 LDA @6252 

14907 3aZ3B JZ/JEQ 26 1TO 3Aa63 

14909 3A3D MOV R16,A 

14911 SASF STA @624B 

14914 3A42 LDA @6109(B) 

14917 3A45 STA @624C 

14920 3A48 LDA @610A(B) 

14923 3A4B STA @624D 

14926 3A4E LDA @610B(B) 

14929 3ASi STA @624E 

14932 3aSs4 LDA @610C(B) 

14935 3aS7 STA @624F 

14938 3ASA CLR A ;A=0 

14939 SASB STA @6252 

14942 3ASE STA @6250 

14945 3A61 IMP 4F ;JUMP TO SAB2 (EXPAND THIS LOOP? 
14947 3A63 SASS LDA @6113(B) ; 

14950 3A66 BTJO %20,8,0%  ;TO 3A72 

14953 3A6? CLR A ;A=0 

14954 3A6A BTA @6142(B) 

14957 3A6D IMP 27 ;JUMP TO 3AS2 (EXPAND LOOP) 
14959 3A6F BR @F998 ;G0TO LOOP3998 (CONTINUE THIS LOOP) 
14962 3A72 LDA @6119(B) 

14965 3A75 CMPA @6142(B? 

14968 3A78 JNZ/JNE FS ;TO SASF (LOOP) 
14970 3A7A LDA @6114(B? 

14973 3A7D MOV A,R1O 

14975 3A7F LDA @6141(B? 

14978 3A82 3as2 XOR R10,A 

14980 3AB4 BTJO %E0,A,E8 3TO SASF (LOOP) 
14983 3a87 LDA @6143(B) 

14986 SABA INC A 

14987 3ASB JNZ/JNE EZ ;TO 3A6F (LOOP) 
14989 3a8sD MOV %01,P1D 

14992 3Aa90 LDA @6144(B) 

14995 3a93 INC A 

14996 3A94 INZ/INE D9 ;TO SASF (LOOP) 
14998 3A%S MOV B,R37 

15000 3a98 3a98 MOV %07,B 

15002 3a9A SAA XCHB R37 

15004 3a9C LDA @6108(B) 

15007 3A9F MOV A,R36 

15009 3AA1 DEC B 

15010 3AAz XCHB R37 

15012 3AaA4s LDA @S1FF(B) 

15015 3AA7 BTJO R36,8,0D 3TO 3AB7 

15018 3AAA DINZ B,EE 3TO SARA (LOOP) 
15020 3AAC MOV %02,P1D 

15023 3AAF SAAF BR F998 ;60TO LooP3998 
15026 3AB2 SUB3AB2 MOV X%FF,A 

15028 3AB4 STA @6224 

15031 3AB7 MOV %03,P1D 

15034 SABA LDA 86254 

15037 3SABD CMPA @6253 ;DIRECT COMPARISON 
15040 3ACO JZ/JEQ 02 ;T0 SAC& (EXPAND LOOP? 
15042 3ac2 JC/JS EB ;TO 3AAF (LOOP? 
15044 3AC4 MOV %04,P1D 

15047 3AC7 MOV %FF,P1B 

15050 3aca CMP R17,ROE 

15053 3aAcD JZ/JEG 32 ;TO 3BOO 

15055 3SACF MOV %FF,P17 

15058 3AD2 MOV %00,A 

15060 3AD4 TRAP-5 

15061 3aD8 MOV ROE,B 

15063 3AaD7 SUB %02,B 

15065 3AD9 TRAP-10 


15066 SADA ADD “%OS,B 
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SADC 
SAEO 
SAES 
SAE4 
SAES 
SAE7 
TAES 
SAEF 
SAEB 
SAEC 
SAFO 
SAFS 
SAF4 
SAFS 
SAFT 
SAFS 
SAFC 
SAFF 
3BO0O0 
3B01 

3SBOS 
SBO4 
3BO6 
3BO7 
SBOB 
SBOE 
SBOF 
3Bii 

3B14 
3B16 
3B19 
3BIB 
SBIE 
3821 

3B23 
3B26 
3B27 
3B29 
SB2A 
3828 
3B2C 
3B2F 

3BSSo 
SBS2 
SBS4 
SB37 
SBS? 
SBA 
s3B3B 
SBSE 
3B41 

3B44 
3B47 
3B4A 
3B4C 
SBA4F 
3BS1 

38535 
3855 
3BS7 
3BSA 
BSD 
3B60 
3B62 
SB64 
3BS7 
3Bé9 
SB6B 
SB6éD 
SBOF 
3879 
3B73 
3B76 
3B7? 
SB7A 
3B7C 
SB7E 
3BS80 
3Be1 

3384 
3587 
3889 
3BSA 
3BSCc 
SBSF 
3BIO0 
3B92 
3B9S 
3398 
3B9B 
3B9ID 
SB9E 
SBA1 

TBA4 
SBA7 
SBAA 
SBAD 
SBBO 
SBBS 
SBBS 
3BB9 
SBBC 
SBBF 
3BC1 

sacs 
3BCH 
3BC? 
sBCB 
SBCcD 
3BDO 
SsBDS 
35Ds 
3BOS 
SBD? 
SBDB 
sBDC 
SBDF 
SBE 

SBES 
SBES 
SBE? 
SBEA 
SBED 
SBEF 
SBF2 
3BFS 
3BFS 
3BFB 
SBFB 
SBFD 
SBFE 


3BO0O 


SB26 


3B2B 


SB3B 


LOOPSB4C 


3BS7 


SBOF 


3B84 


3898 


3B9B 


SBBS6 


3BDS 


SBES 


SBFB 


MOVD KLEOFF (B) , R353 tee He EHH HH HHH HHH eH eH EHH tee e eee t ee te 
MOV 404,P10 

TRAP-7 

TRAP-8 

MOV 401,84 

TRAP-6 

TRAP-8S 

MOY 402,A 

TRAP-6 

MOVD £5200, RES eee Hee eee ee HEHEHE HHH tee rete ee te terete ete 
MOV %407,P10 

TRAP-7 

TRAP-8 

MOV £03,A 

TRAP-6& 

MOVD Kh2Z0O7, RES ftHHH He HH eee He HH ee Heese te ete eee eee eee ret 
MOV %OB,P10 

TRAP-7 

TRAP-8 

MOV %04,A 

TRAP-6 

MOV ROF,B 

TRAP-10 

MOVD £61021 B) py R3SEHEHEEH EEE HEHEHE eH Hee ee eee ee eee terete 
MOV %12,P10 


TRAP-7 
CLR R1B 3;R1B#0 

LDA 86224 

JZ/JEQ 10 3TO 3B26 

LDA @6250 ~ 

INZ/JNE OB 37TO 3826 

CALL aDASF ;608UB SUBLASF 

CALL @DAA? ;G0SUB SUB1AA? 

MOV “FF,A 

BTA 86250 

TRAP-8 

MOV %07,A 

TRAP~6 

CLR B 1B=0 

TRAP-11 ;LOADS A FROM WEIRD MEM LOC (GET SER. NUMBER ASAIN) 
STA @623A(B) 

INC B L 

CMP %0C,B 3G0 THRU IT 12 TIMES 

INZ/JNE F7 $TD SB2B (LOOP? 

CMP R17,ROE 

IZ/JEQ 92 ;TO 3B3B 

TRAP-8 

TRAP-8 

MOV ROE,R17 

LDA @DEOS ;LOAD VALUES (EQUALS 36? 

STA @6229 

LDA &DEO7 sLOAD VALUE4 (EQUALS FC? 

STA 96220 

IMP OB ;JUMP TO 3BS57 

CMP %04,R13 

IZ/JEG 06 1JUMP TO 3BS7 

DEC RIC 

JZ/JEQ 43 3TO 3B98 (CONTINUE THIS LOOP? 
IMP O3 ;JUMP TO 3BSA 

MOV “%OS,.P1C 

LDA @6254 

CMPA @6253 ;DIRECT COMPARISON 

JZ/JEQ O02 3TO 3B64 

JC/I8 34 3TO 3B9B (EXPAND THIS LOOP? 
LDA @6224 

JNZ/JNE 32 ;TO 3B9B (EXPAND THIS LOOP? 
MOV R1D,A sR1D CONTAINS THE AUTH CODERRSRSSaaaaaeeaeazaseeee 
JZ/JEQ 2B +70 3B98 (CONTINUE THIS LOOP) 
MOV ROF,B 

TRAP-10 


LDA @6113(B) 

BTJZ %4R20,A,06 ;TO 3B7C 

LDA @6144(B) 

INC A 

INZ/JNE 1C ;TO 3B98 (CONTINUE THIS LOOP) 
MOV B,R37 

MOV ROE,B 

TRAP-10 

MOV %07,P10 

LDA @6100(B) 

MOV A,R36 

INC B 

XCHB R37 

LDA @6102(B) 

INC B 

XCHB R37 

BTJO R36,A,08 3TO 3B9B (EXPAND THIS LOOP) 
DIJNZ R10,EC ;TO 3884 (LOOP? 

BR @F998 360TO LooP3998 

MOV ROF,B 

TRAP-10 

MOV RO6,R37 

AND %F3,R37 

LDA @6113(B? 

BTJZ %4R40,A,0C 3;TO 3BB6 

OR %404,R37 

LDA 96278 

BTJZ %RO1,A,03 ;70 3BBS 

XOR %40C,R37 

MOV R37,RO6 

LDA 86232 

CMPA @6118(8? 

IJN/ILT 25 3TO SBE& (EXPAND THIS LOOP? 
INZ/JNE 12 370 SBDS (CONTINUE THIS LOOP? 
LDA #6231 

CMPA @6117(B) 

JNC/JL 1B 3TO SBES (EXPAND THIS LOOP) 
INZ/JNE O8 }TO SBDS (CONTINUE THIS LOOP? 
LDA #46230 

CMPA @6116(B? 

JNC/JL 11 }TO SBE& (EXPAND THIS LOOP? 
LDA @6114(B> 


STA 826220 

MOV A,R15 

CLR RIE 

BR @F79F 3GOTO LOOPS79F 
LDA #6229 

INC A 

BTA 862297 

JNZ/INE OC 370 SBFB 

LDA @622A 

INC A 

STA @622A 

JNZ/JINE OS 3TO SBFB 

CALL @DASF 3;GOSUB SUBLASF 
MOV %O0S,A 

TRAP-6 

MOVD ZE2ZTO, RSS Fee e HHH Hee HH He He He HHH Hee eee eee eeereese 
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15362 3C02 MOV %03,P10 


15365 3cos TRAP~-7 

15366 3Co0s TRAP-8 

135367 3SCO7 BR @FB4C 1G0TO LOOCPSB4C 
13370 3CoOA SUBSCOA MOV ROE,B 

15372 3cCoc TRAP-10 

15373 3CoD MOV %16,A 

15375 3CoF ADD ROO,B 

15377 311 MOV B,R37 

15379 3C13 MOV A,B 

13380 3014 3014 XCHB R37 

135382 3C1i6 LDA @60FE(B) 

15385 3cC19 DEC B 

15366 SCiA XCHB R37 

15388 3SCic STA @61FE(B> 

15391 SCiF DINZ B,FS 17T0 3014 (LOOP) 
1353593 3C2 RETS OST KK" 
15374 3022 SUBST22 MOV 496,83 

15396 3024 MOV %420,A 

153978 3024 3C26 STA #6255°(8) 

15401, 3029 DINZ B,FB 3T0 3C26 (LOOP) 
15403 3C2B 2 3C2B MOV ROF,B 

13405 3020) TRAP-10 

15406 3C2E LDA 961146(8) 

15409 3C31 MOV A,RSB 

15411 3C33 Lupa a4117¢B) 

15414 3036 MOV A,RSA 

15416 3SC38 LDA ®86118°B) 

15419 3C3B MOV A,RSE 

15421 3SC3D LDA #6232 ~ 

15424 3040 MOV A,RSD 

15426 3042 LDA 84231 

15429 3045 MOV A,B 

15430 3046 LDA #84230 

15433 3049 SUB ROO,RSB 

15436 3SC4C SBS ROL. RSA 

15439 SC4F SBB R3D,RSE 

15442 3C52 JgC/J3S 91 170 3CS5 (‘OVER RETS? 
15444 3054 RETS ae es ne me <<< 
15445 scss MOV 403,8 

15447 3C57 MOV Z%1F,A 

15449 3CS? 3cs? INC A 

15450 3CSA SUB %BO,RS3B 

15453 3SCSD SBB “41E,RSA 

15456 3C60 SBB %04,R3E 

15459 3scés JNC/IJL OS 3TO SCA 

15461 3C45 DINZ B,F2 3T0 3C59 (LOOP) 
15463 3C67 BR @FCDS 350TO SUBSCDS 
15466 3Cé4A STA 862356 

15469 3C4D ADD “BO,R3IB 

13472 370 ADC %1E,RSA 

15475 3cC73 ADC %404,RS3E 

15478 3076 MOV “ILF,A 

15480 3cC78 3c78s INC A 

15481 3cC79 SUB %78,R3B 

15484 3C7C SBB 469,R3A 

15487 3C7F SBB %00,R3E 

15490 3C82 JC/J8 F4 17TO 3C78 (LOOP) 
135492 3C84 3084 STA @6257 1FROM 3B9S 
15495 3C87 ADD 478,R3B 

13498 SCBA ADC %69,R3A 

15501 3cspD MOV ZILF,A 

iS503 SceFr SCSF INC A 

15504 3cC90 SUB 494,R3B 

15507 3cC93 SBB %411,R3A 

15510 30976 JC/JS F7 3TO SCSF (LOOP? 
15512 3098 STA @6258 

15515 3sc9B ADD 494,R3B 

15518 3SC9E ADC %411,R3A 

135521 3cA1 MOV “41F,A 

15523 3cCAas SCAB INC A 

15524 3cA4 SUB %C2,R3B 

13527 3CA7 SBB %01,R3A 

15530 3CAA JC/J8 F7 3TO SCAS (LOOP) 
135532 3caAc STA #6259 

15535 Scar ADD 4C2,RS3B 

15538 sca82 ADC %01,R3A 

15541 sScBs MOV “1F,A 

15543 3SCB7 3CB7 INC A 

15544 3c88 SUB 44B,R3B 

15547 SCBB SBB 4CO,RSA 

15550 SCBE JC/JS F7 370 SCB7 (LOOP? 
135552 3cco STA @62S5A 

15555 sccs ADD 446,R3B 

15556 x3Ccs4 ADD R3B,RSB 

1556i 3CCc? MOV 41F,& 

15563 3cCcsB 3ccB InC A 

15564 3CCC SUB 4“4OF,R3B 

13367 3SCCF JC/JS FA 370 SCCB (LOOP?) 
155697 ScDi STA 84258 

183572 3CD4 RETS ae ee we es Ses me eine ore Csi< 
15573 scos SUBSCDS MOV 4£22,A 

13575 3007 STA #86256 

153578 scDA MOV 4297,A 

15580 tcpoCc STA 86257 

15583 scpr STA 846257 

15586 sce2 STA @625B8 

15589 ICES MOV 425,A 

13591 SCcE7 STA @6258 

155974 3CEA STA 8625A 

13597 3CED RETS {58S = eee ee eee LESAN 
15598 3SCEE SUBSCEE PUSH B 

13399 SCEF MOV %03,P10 

15602 3CF2 MOVD “EBS7,R35 SPE EEE EEE EEE HEHEHE HEE EEE HH ee eee eee tee e eee 
15606 SCFSé MOV R25,A 

15608 3SCFB8 XOR R15,A 

15610 SCFA BTJO %60,A,04 sTO 3D01 

15613 3CFD MOVD KZEBSB, RSS Fete eH HH He HH eH HEHE HEHEHE EEE HE EEE Ete e eee 
15617 3DO1 CALL @C31D 3GOSUB 31D 
13620 3D94 POP 8B 

15621 3D0S ADD “%OC,B 

15623 3D07 LDA #6256 

15626 SDOA CMP %20,A 

15628 3DOC JZ/JEQ OA 3T0 3D18 

15630 3DOE TRAP-12 

15631 3DOF LDA 86257 

15634 3D1i2 TRAP-13 

15635 3D1i3 LDA 86258 

15638 3D16 war iF ;JUMP TO 3D2F 
15640 3Di8s 3D18 LDA 86257 

15643 3D1B CMP %20,A 

15645 3DiD UNZ/INE OF 3TO0 3SD2E 

15647 3SDIF MOV 42E,A 

15649 3D21 TRAP-12 

iS6S0 3D22 TRAP-13 

15651 3023 LDA 26258 

15654 3026 CMP %20,A 

154656 3028 JINZ/JINE OB 3TO SDSS 

15658 3D2A MOV %2E,A 

13660 3D2C IMP 07 3; JUMP TO 3D35 


15662 302E SD2E TRAP-12 
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15663 3D2F 3D2F MOV X1D,A 

15668 3D31 TRAP-13 

15666 3D32 LDA @6258 

15669 30335 3035 TRAP-13 

15670 3D36 LDA @6259 

15673 3D39 TRAP-13 

15674 3D3A MOV %1D,A 

15676 3D3C TRAP-13 

15677 3D3D LDA @625A 

15680 3040 TRAP-13 

15681 3D41 LDA #6258 

15484 3044 TRAP-13 

15485 3D45 LDA 86256 

15688 3D48 CMP %20,A 

15690 3D4A INZ/JNE OS 3TO SD4F 
15692 3D4C MOV %2E,A 

15694 3D4E TRAP-13 

15695 3D4F 3D4F RETS } 67-7 ------------- 


FROM 3DS0 TO SFCF ARE NOTHING BUT FF (BLANKS IN EPROM. 


16336 3FDO Trap = DASS 
16338 SFD2 Trap = DBF6 
16340 3SFD4 Trap = D174 
16342 3FDS6 Trap = FOSF 
16344 3FD8 Trap = F987 
14346 3FDA Trap = C3D9 
16348 SFDC Trap = C392 
16350 3FDE Trap 16 = FOAF 
16352 3SFEO Trap 15 = FOAS 
16354 3SFE2 Trap 14 = F138 
16356 SFE4 Trap 13 = FOBE 
16358 SFES6 Trap 12 = FO7F 
16360 3FES Trap 11 = FO4F 
16362 3SFEA Trap 10 = F42C 
16364 SFEC Trap = F7D6 
16366 SFEE Trap 8 = F842 
16368 SFFO Trap 7 = FO71 
16370 3SFF2 Trap 6 = FO2C 
16372 JFF4 Trap 5 = F138 
16374 SFFS Trap 4 = FB4B 
16376 SFFS Trap 3 = F4D9 
16378 SFFA Trap 2 = F138 
16380 SFFC Trap 1 = F443 
16382 SFFE Trap O Address = FOES 
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